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Este jogo apresente o tabuleiro e as pe 
MS no video. Permite a escolha de ate 
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JOGO DE GAMAO 
16K 

Este programa apresenta o tabuleiro no 
video o utiliza o eficiente código de má 

3 uma. permitindo 4 (quatro! níveis de 
iliculdades de jogo 


MONSTRO DAS TREVAS 
TRIDIMENSIONAL - 16K 

Impressionante jogo onde você deve 
evitar o monstro das trevas Tudo em 3 
dimensões 


LABIRINTO 

TRIDIMENSIONAL • 16K 

Jogo em trés dimensões 0 jogador po 
dera dellntr a dificuldade do Labirinto 
O programa apresenta a posição do Jo 
gador em perspectiva Em qualquer mo 
mento e possível pedir auxilio ao com 
putador 


DEMOLIDOR 

2K 

Jogo animado, tipo •‘fliperama" O toga 
dor deverá demolir uma parede com 
uma bola que se encontra sempre em 
movimento. 


INVASORES DO 
ESPAÇO 16K 

Consiste de uma trota de naves invaso¬ 
ras extraterrenas. descendo no planeta 
Terra Sua missão é destruir as naves 
mvasoras dispondo da arma de raios la 
ser 


TK-MAN 

16K 


TKALC 

16K/64K 


jogo animado onde deverio ser apaga 
dos todos os pontinhos espalhados em 
um labirinto (o programa contem 15 ti¬ 
pos de labirinto). Voeé será impedido a 
qualquer custo, por 4 extralerrenos. 
guardiães do labirinto, que poderão ser 
combatidos com cargas de raios-laser. 


Programa desenvolvido para cálculos 
numéricos em planilha 0 usuário detl- 
ne as colunas, as linhas e as formulas 
aplicadas Similar ao lamoso Visicalc. 
De grande versatilidade, este programa 
permite a formulação de cálculos cien- 
tificos e comerciais, analise de tabelas 
numéricas e outras aplicações 


Programas para 
TK82-C e TK85 




RALLY 

16K 

Emocionante cornda de rally em um la¬ 
birinto. onde poderão ser testados sua 
habilidade e seus reflexos. Para conse¬ 
guir seu intento, você devera evitar car- 
ros-ataque e obstáculos em seu trajeto 


MATEMATICA I 
16K/64K 


Analise grafica de tunçóos matemati 
cas. resolução de sislemas de equa 
çóes lineares (16K 5t equaçòes/64K 95 
equações), e Calculo de Integrais defi 
nldo5 


TKADREZ II 
16K 
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Nem só de pão vive o homem: de elo¬ 
gios também. Através de nossos corres¬ 
pondentes e viagens de amigos, vários 
exemplares de MICROHOBBY já estão cir¬ 
culando pelos Estados Unidos e pela Euro¬ 
pa. Isto sem contar alguns assinantes no ex¬ 
terior: poucos, mas motivo de muito orgu¬ 
lho ! 

Pois bem, é incrível a reação quase unâ¬ 
nime de espanto do pessoal lá de fora ao 
ver a qualidade gráfica e editorial da nossa 
revista (quando dizemos nossa, você está 
incluído!). 

Isso nos envaidece muito e queremos 
compartilhar com você este sentimento de 
orgulho. 

Para o aprimoramento desta qualidade 
contribuiram de maneira significativa as 
inúmeras cartas contendo preciosas suges¬ 
tões e críticas, e as colaborações de altís¬ 
simo nível de muitos leitores. 

Através destas cartas, por exemplo, sen¬ 
timos a necessidade de abrir mais uma se¬ 
ção: POR DENTRO DO APPLE. Muitís¬ 
simos leitores têm um TK em casa, mas 
na firma têm acesso a um UN/TRON, um 
M/CROENGENHO, um MAXXI, etc., to¬ 
dos compatíveis com o APPLE e gostariam 
de receber algumas dicas referentes a estes 
outros computadores. 

Outros leitores, pensando talvez numa 
profissionalização do HOBBY aprendido 
com o TK, nos solicitaram informações a 
respeito de computadores de maior porte. 
Isto nos motivou, inclusive, a pensar em 
abrir uma seção irmã à do APPLE dedicada 
aos computadores compatíveis com o 
TRS80. 

Tudo isso, obviamente, representará al¬ 
go mais para o usuário do TK a quem dedi¬ 
camos nossa revista, não implicando de for¬ 
ma alguma em perda de qualidade do ma¬ 
terial que ele recebe para seu pequeno gran¬ 
de computador. 

Por isso, pedimos: continuem escreven¬ 
do criticando, cobrando, colaborando, su¬ 
gerindo, ou até apenas elogiando: afinal 
nem só de pão vive o homem. . . 
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CARTA DOS 
LEITORES 



Prezados Senhores, 

Em primeiro lugar quero parabenizar a MICROMEGA 
pela excelente publicação mensal da MICROHOBBY, 
pois é uma revista que atende aos anseios de todos os 
usuários do TK, destacando-se os programas inéditos, as 
dicas e as novidades. 

Tenho algumas sugestões que acredito melhorariam 
ainda mais o nível da revista, que são: poderia ser criada 
uma seção para solucionar as dúvidas dos usuários do 
TK, tanto em software como em hardware; gostaria que 
fosse publicado um programa que informasse ao usuário 
o quanto de memória ainda resta durante a digitação de 
um programa extenso, este programa poderia ser uma 
sub-rotina do programa principal, ao qual o usuário re¬ 
correria sempre que achasse necessário. 

Desde já agradeço a atenção dispensada, 

Silvio Roberto Hantschei 

Prezado Silvio, 

Uma de suas sugestões já foi atendida: aconselhamos 
a leitura do MAPA DA RAM do TK na seção de Dicas e 
da análise da FITA DO MÊS. 

Prezados Senhores, 

Estou enviando anexo a esta, um programa com os 
comentários, para participar da seção "Quebra-cabeça". 

Aproveito a oportunidade para solicitar alguns escla¬ 
recimentos. . . Os programas que recebi na fita-brinde 
necessitam que o computador funcione em "SLOW". 
Meu computador (NEZ8000) só funciona em FAST. Na 
revista n9 0, pag. 6 foi anunciado que na revista n9 1 se¬ 
ria publicado artigo mostrando como acrescentar a fun¬ 
ção "SLOW" ao computador. Porque não foi publicado? 
Vocês não podem enviar instruções para eu fazer a mo¬ 
dificação? Agradeço resposta, despeço-me. Atenciosa¬ 
mente. 

Hermelindo Pinheiro Manoel 

Prezado Hermelindo, 

Seu programa e comentários estão ótimos. Infeliz- 
mente ainda não foi para esta vez sua publicação. Conti¬ 
nue, enviando respostas pois o nível desta última estava 
muito boa. 

Com relação ao SLOW no NEZ8000 sugerimos uma 


lida na seção PEQUENOS ANÚNCIOS: o WILSON DE 
ASSIS pode lhe fazer esta adaptação ou o JAN MAR¬ 
TIN L UND pode lhe fornecer o esquema. 


Prezados Senhores, 

Assinante que sou de MICROHOBBY, no final de ju¬ 
lho (28) recebi satisfeito, a fita brinde prometida na as¬ 
sinatura. 

Achei interessante o jogo da "Pulga", entretanto, por 
mais que tentasse em todos os volumes, não consegui ro¬ 
dar o "Simulador". Seguramente não está boa a fita. 

Dois ou três dias após foi-me entregue pelo Correio, o 
nó 2 da revista (excelente) e nele verifiquei a opção per¬ 
mitida aos novos assinantes; o desgravador Twin Go. Li 
também a informação de que o cassete estaria gravado 
dos dois lados, o que também não ocorre com o meu co¬ 
mo poderão constatar. 

Em razão do acima exposto remeto-vos anexa a esta, 
a fita em questão, para que seja examinada. 

Julgando-me no direito de receber um cassete com os 
dois lados gravados bons, como prometido na proposta 
de assinante, permito-me a liberdade de solicitar de 
V.Sas., desde que possível e sem prejuízo para a revista, 
a troca de brinde. Apesar da curiosidade muito grande 
em torno do Simulador que não conheço, para as mi¬ 
nhas aplicações, me seria muito mais útil o Twin Go. 

Outrossim, aproveito o ensejo para perguntar como 
posso medir a capacidade de minha expansão de 64K, 
uma vez que, aplicando : 9990 PRINT PEEK 16388 + 
+ 256 * PEEK 16389 — 16384 encontro: 48.896 
Bytes. Certo da compreensão de V.Sas., atenciosamente. 

Lorenzo C.B. Scaffa Falcão 

Prezado Lorenzo, 

Infelizmente nosso estoque de TWIN GO já está intei¬ 
ramente comprometido e não podemos efetuar a troca 
solicitada. Podemos, porém, trocar a fita do "Simulador 
de VÔO" por outra idêntica (que você nos devolveu foi 
testada e não estava com defeito) ou pela nova fita SÃO 
PAULO e MANSÃO MALUCA. Escreva-nos comuni¬ 
cando sua decisão. 

Com relação à sua expansão para 64K aconselhamos 
a leitura da seção DESGRILANDO. 

O 
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CHEGA I 

DE I 

PROBLEMAS f 

Use Tig Loader 0 


TIG-LOADER possibilita: 



APENAS: 
CR$ 15.000,00 


• a localização do ótimo volume do gravador, 
facilitando a operação LOAD. 

• DUPLICAR qualquer programa, mesmo aque¬ 
les "fechados". 

• carregar (LOAD) e DUPLICAR simultanea¬ 
mente. 

• gravar (SAVE) em 2 gravadores ao mesmo 
tempo. 

• monitorar as operações LOAD, SAVE ou 
DUPLICAÇÃO através de fone. 

• filtrar as interferências elétricas de baixa 
freqüência, que são a causa da maioria 
dos problemas de LOAD/SAVE. 


APLICATIVOS PARA TK 

TIG-SCREEN: vinte e sete rotinas de video, para incrementar seus programas! 
Inversão de video, moldura, arquivo de imagens, rotação, scroll em quatro 
direções, etc... efeitos visuais incríveis! Em linguagem de máquina, ocupa 
1,3Kb, ficando protegido no RAMTOP, depois é só utilizá-lo onde quizer! 

P/ 16K Com manual explicativo Cr$ 8.000,00 

TIG-COMP: coloque, em seus programas em BASIC, a velocidade de 
código de máquina. Rode-os na forma COMPILADA! Simples de usar, 
é só carregar ou digitar o seu programa em BASIC e depois usar 
o TIG-COMP. Pronto! Você terá o seu programa em linguagem de máquina em 
instantes. 

P/16K Com manual explicativo Cr$ 15.000,00 

TIG-SPEED: uma combinação de soft e hardware, permitindo uma transferência 
de dados micro/cassete de 4.200 bauds. Você poderá carregar ou gravar 
16 Kb em 30_segundos! Acrescenta ao micro a função VERIFY. Facílimo de 
operar, compõe-se de cassete, interface e manual explicativo. 

P/ 16 e 48K 


Envie seu pedido + cheque nominal cruzado 
Prazo de entrega: 15 dias 

Despesas postais incluídas nos preços 

Atendemos somente por carta TIGRE COM. DE EQUIP. P/ COMPUTADORES LTDA. 


Preço sob consulta. 



Rua Correia Galvão, 224 
CEP 01547-São Paulo-SP 


QTD 

ARTIGO 

PREÇO 

TOTAL 

















TOTAL DO PEDIDO: 



SIM, desejo receber os produtos acima relacionado, para o que estou anexando o cheque n2.. no valor 

de. 


NOME_ 

ENDEREÇO_ 

CEP_CIDADE 

PROFISSÃO_ 

MICROCOMPUTADOR_ 


ESTADO_ 

DATA NASC_ L _ L 
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DESGRILANDO 


A EXPANSAO PARA 64 K 


Prezados Senhores, 

Seria injustiça de minha parte, não acusar o recebi¬ 
mento da FITA BRINDE e muito mais, deixar de agra¬ 
decer-lhes pela mesma. O Programa "Simulador de 
VOO" é realmente fantástico. Por isso, e pelo que pro¬ 
mete a revista, acho que foi um bom negócio tornar-me 
assinante da mesma. 

Mas nós, amadores do Basic-TK precisamos mesmo de 
uma publicação de apoio, como promete ser a MICRO- 
HOBBY. E no momento, eu, em particular estou pedin¬ 
do ajuda a vocês. Trata-se de saber se existe algum pro¬ 
grama capaz de calcular com precisão a quantidade de 
memória (em bytes ou Kbytes) ocupada com determi¬ 
nado programa, pois é muito desagradável, ao se digitar 
um programa longo, ver "estourar" a memória do com¬ 
putador. Assim, podendo "medir" a quantidade de me¬ 
mória ocupada, torna-se prático e mais fácil trabalhar, 
mesmo quando se tem uma expansão de memória de 
64K, como é meu caso. Mas já me aconteceu de perder 
programas quase no final do serviço. E aí, como se faz? 
Não adianta "esquentar" a "cuca". 

No meu caso, as coisas são piores. Explico: no livro de 
Délio Santos Lima, "45 PROGRAMAS PRONTOS 
PARA RODAR EM TK-82C e NEZ8000" (Livraria Po¬ 
liedro — 33 edição), há na página 4, umas dicas para se 
obter o número de bytes ocupados pelo programa, que é 
a seguinte: 

PRINT PEEK 16396 + 256 * PEEK 16397 - 

16509 


e há também variáveis e display: 

PRINT PEEK 16404 + 256 * PEEK 16405 - 16509 

Recomendando usar o comando diretamente como 
indicado, e NEW LINE. No final da listagem do progra¬ 
ma, é claro, e sem etiqueta. 

Após ter digitado um longo programa, fiz o comando 
conforme indicado e o resultado foi de 15,960 Kbytes. 
Com esse resultado, fiquei tranquilo e prossegui com 
mais umas 8 linhas de programa (+ ou —) e foi aí que 
aconteceu a BOMBA. O computador limpou tudo e fi¬ 
cou a tela com traços horizontais que depois rodavam na 
tela, etc, etc. Será que os amigos podem me dizer algu¬ 
ma coisa, se a EXPANSÃO QUE POSSUO é DE 64K? 
E PORQUE QUANDO O PROBLEMA ESBARROU OU 
TENTOU ULTRAPASSAR OS 16K, a memória estou¬ 
rou? Ou será que o programa do DÉLIO SANTOS LIMA 
não está correto? Ou será que a MICRODIGITAL está 
trapaceando, vendendo gato por lebre? Gostaria que os 
amigos me ajudassem, pois a memória que vai estourar 
agora, será com certeza a minha. 

Para uma resposta mais rápida, mando um envelope 
selado. Mas se considerarem esse caso de importância 
(pode estar acontecendo com outros TK) podem dar a 
dica através da revista, o que seria de grande utilidade 
talvez, para outros usuários do TK. 

Em próxima oportunidade, voltarei com programas 
de utilidade COMERCIAL, de minha autoria para cola¬ 
borar com a Revista MICROHOBBY; no momento, os 
mesmos estão sendo testados, afim de evitar que surjam 
problemas ou erros durante a execução. 

continu* 
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Por falar em teste, peço a atenção dos amigos, em 
especial do Sr. PIERLUIGI PIAZZI, para o fato de que 
estamos aqui desenvolvendo um programa, apelidamos 
provisoriamente de "GH" (Geração Humana). Parece 
pura maluquice, é o que todos pensam (quando peço 
ajuda) quando dizemos que o programa destina-se a 
fazer a PREVISÃO DO SEXO DO BEBÊ que irá nascer 
de determinada mãe. A ajuda que pedimos, é que as pes¬ 
soas forneçam as datas completas de nascimento (só da 
MÃE, é claro), bem como as datas dos filhos que já hou¬ 
verem nascido. Agora, enquanto estamos em fase de ex¬ 
periência com o programa, queremos saber o percentual 
de erros e acertos, em 1000 casos, com um desacerto 
apenas. Para nós, isso já representa alguma coisa. Mas 
precisamos de mais dados, como conseguir? Preferimos 
lidar com pessoas desconhecidas. A pesquisa funciona 
da seguinte forma: A pessoa (Mãe) nos fornece o dia, 
mês e ano de nascimento, e as datas também dos filhos 
que já nasceram e o sexo. O computador irá então fazer 
o cálculo, que irá confirmar o sexo dos que já nasceram, 
dizendo então qual será o sexo do próximo que irá nas¬ 
cer. O que realmente nos interessa no momento é essa 
confirmação do sexo dos já nascidos. Pois será esse índi¬ 
ce que determinará a validade ou não, do programa. 

Creio que os amigos poderiam dar-nos uma "colher de 
chá", publicando um anúncio pequeno na MICRO- 
HOBBY pedindo aos usuários do TK, que enviem nome, 
data de nascimento, do usuário, da esposa e dos filhos 
todos — inclusive se houver algum já falecido. Ou caso 
de aborto; as datas desses também devem contar. Esse 
material poderia ser enviado para: 

CRM — Cx. Postal: 43 

68250 — Óbidos — PA 


ENDEREÇO 


1K =2 l * =1024 



• K 

8K 
16K 
24 K 
32 K 
40 K 
48 K 
56 K 
64 K 


O sistema operacional do TK foi projetado, original¬ 
mente, para não aproveitar como RAM os 8 Kbytes mar¬ 
cados como RAM 1. Além disso, as primeiras máquinas 
construídas tinham uma ROM que previa uma expansão 
até 16K no máximo, ou seja, a RAM 2 que vai até o en¬ 
dereço 32768. Isto produz três problemas facilmente so¬ 
lucionáveis: 

A variável RAMTOP do seu TK assume, provavelmen¬ 
te, o valor máximo de 32768. Quando você conecta sua 
expansão de 64K o computador "pensa" que tem ape¬ 
nas 16K de RAM e por isso acontecem coisas estranhas 
ao atingir o limite de 16K. 

A solução deste problema é extremamente simples: 
basta contar ao computador , assim que a memória foi 
conectada, que ele pode chegar até o endereço 65535. 
Isto é feito através de um comando direto (conforme in¬ 
dicado no manual de instruções de expansão para 64K). 


POKE 16389,255 


Acho que assim, dentro de pouco tempo teríamos 
mais uma vitória do BASIC TK, além de testar a recepti¬ 
vidade da nossa nova revista, que terá que crescer mais, 
muito mais ainda, e do que temos certeza, essa é a inten¬ 
ção dos Senhores. 

Roberto R. Malcher (Óbidos — PA) 

Caro Roberto, 

Vamos começar pelo fim: você não está ocupando 
nosso "precioso" tempo. Pelo contrário\ Você está dan¬ 
do uma valiosíssima contribuição para a revista e para 
seus leitores, apresentando os grilos que voce apresentou. 

Vamos agora ao seu esclarecimento: 

1) MEDIDA DOS BYTES OCUPADOS PELO PROGRA¬ 
MA - As dicas fornecidas no livro do Dê LIO estão mais 
que corretas. Para maiores detalhes sobre o significado 
do que você digitou aconselhamos uma rápida leitura na 
seção DICAS da matéria " O MAPA DA RAM DO TK" 
que foi elaborada por causa da sua carta\ 

Estude com particular cuidado a variável RAMTOP na 
dica citada para poder entender o esclarecimento do gri¬ 
lo seguinte. 

A EXPANSÃO PARA 64K — Quando você conecta a 
expansão para 64K no seu TK82, a memória passa a se 
organizar como segue: 


Ao receber este comando, a variável RAMTOP, cujo 
valor está armazenado nos bytes de endereços 16388 e 
16389, mude seu valor: 


ANTES DO DEPOIS DO 

POKE POKE 

16388 

0 

0 

16389 

128 

255 

VALOR 

DA 

RAMTOP 

32768 

65280 


Para calcular o valor do RAMTOP, multiplicar o valor 
armazenada no byte 16389 por 256 e somar o valor con¬ 
tido no byte 16388. 

Se você quiser, portanto, todos os bytes a que tem di¬ 
reito, digite também 

POKE 16388,255 

que o valor de RAMTOP sobe de 65280 para 65535. 

continua 
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UVROS PARA TK, NE Z, CP 


TRINTA JOGOS 

INCLUINDO PROGRAMAS EM CÓDIGO LIS 
TADOS POR IMPRESSORA 

JOGO DE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE,PAREDÃO, 
DEMOLIDOR, VELHA, pASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MÁGICO,SENHA,BAN 
CO IMOBILIÁRIO, BOMBARDEIO, SOM 
POR SOFTWARE, ETC..,. 

LANÇAMENTO CR$ 4.000,00 

APLICAÇÕES SÉRIAS 

0 

FOLHA DE PAGAMENTO, BALANCETE,CON 
TAS A RECEBER, A PAGAR, CORREÇÃO 
MONETÁRIA DAS CONTAS DO BALANÇO, 
CORREÇÃO DAS CONTRIBUIÇÕES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 
CONTA BANCÁRIA,TABELA PRICE,ESTA¬ 
TÍSTICA ,CORREÇÃO DE PROVAS,EDITOR 
DE TEXTOS, RAM TOPER , SUB-ROTINAS 
EM CASSETTE, CHAINING PROGRAMAS, 
CONTANDO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MATRIZES,ECONOMIZAN 
DO MEMÓRIA, ETC... ETC... 

CR$ 4.800,00 

45 PROGRAMAS 

ARQUIVOS,ESTOQUE, PLANO CONTÁBIL , 
AGENDA TELEFÔNICA,INVASORES,APAGUE 
A TRILHA, CAÇA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TABELAS,TABUADAÍ, 
CONVERSÃO DE COORDENADAS, MÉDIA,FI 
BONACCI,PROGRESSÃO, BIORRÍTMO , RE 
NUMERADOR DE LINHAS EM CÓDIGO,ETC. 

7? EDIÇÃO cr$ 4.000,00 

L_ J 


MICRON 

ELETRÔNICA COMERCIO E INDUSTRIA LTDA 
Av S Joao "4 Telefone 22 4194 S. Jose dos Campos 
Est. de Sao Paulo 


Quando você for elaborar programas específicos para 
serem usados com expansão de 64K é conveniente colo¬ 
car os dois POKEs como primeiras instruções do progra¬ 
ma, no caso do usuário ter um dos primeiros TKs. 

O segundo problema é referente aos 8K da RAM1. 
O sistema operacional do TK simplesmente os ignora 
pois ele organiza a RAM a partir do endereço 16384. Is¬ 
to pode ser considerado, a primeira vista, como uma des¬ 
vantagem, mas com um pouco de cuca e habilidade pode 
ser transformado numa coisa maravilhosa: Quando se dá 
um NEW ou um LOAD # toda a RAM é apagada, mas o 
que estiver na RAM 1 está a salvo! Você pode, por 
exemplo, transferir para este esconderijo um arquivo de 
um programa, carregar de fita um segundo programa 
apagando o primeiro e utilizar o arquivo no segundo. Po¬ 
de armazenar uma dúzia de telas para serem chamadas 
oportunamente, e assim por diante. Obviamente a utili¬ 
zação mais proveitosa deste nicho de 8K é a localização 
de rotinas em linguagem de máquina, expandindo o pró¬ 
prio sistema operacional do TK. 

£ claro que só podemos escrever nestes 8K através de 
POKE e só podemos ler através de PEEK. 

O terceiro problema é referente ao arquivo da ima¬ 
gem: ele não pode ficar "a cavalo" do endereço 32768. 
Isto significa que ele não pode estar armazenado parte 
na RAM 2 e parte na RAM 3. 

Quem desloca a posição do arquivo da imagem na me¬ 
mória é o comprimento do programa. Quando este é 
muito extenso, o arquivo pode ficar na posição critica 
citada (talvez essa seja a causa do seu problema). 

A solução é encompridar artificialmente o programa 
em algumas centenas de bytes (com uma Unha REM, por 
exemplo) de maneira a fazer o arquivo de imagem cair 
inteiro na RAM 3. 

3)PROGRAMA COMERCIAL E ESTATÍSTICO - Esta¬ 
mos esperando ansiosamente seu programa COMER¬ 
CIAL (e os leitores também), enquanto nadarmos num 
mar de FORCA, SENHA, JOGO DA VELHA e DESE¬ 
NHANDO NA TELA\ 

Com relação ao programa GH achamos a proposta tão 
interessante e merecedora de apoio que preparamos um 
apelo especial na pág. 33 . 

Esperamos que estas respostas tenham sido úteis para 
você e para os leitores com problemas análogos. Um 
abraço. 

P/ERLU/GI P/AZZI 
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PROGRAMA DO MES 



Muitos felizes possuidores de um TK82 começaram a 
ser roídos pelo verde micróbio da inveja quando viram 
um TK85 gravando e lendo programas a uma velocidade 
incrível, usando o HIGH-SPEED. Esta inveja se torna 
mais intensa quando percebem que não se trata só de al¬ 
terar a velocidade de transmissão de dados, mas sim de 
acrescentar filtros e amplificadores. 

Para amenizar esta inveja estamos publicando um "pa¬ 
liativo": o PENTASPEED. Como o nome sugere, o 
PENTASPEED é uma rotina (em ASSEMBLY) que per¬ 
mite ler e gravar programas com uma velocidade cinco 
vezes maior que o usual. 

Esta velocidade é suficiente alta para valer a pena o 
trabalho de inserir a rotina no computador com 16K, 
mas suficientemente baixa para não exigir nada além de 
um gravador razoável e fita de boa qualidade. 

Inicialmente digitamos o programa A da fig. 1, to¬ 
mando o cuidado de inserir pelo menos 282 "zeros" na 
linha 1 REM 


PROGRRMP A 

1 REM &000000000000O00000000& 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
000 

10 PRINT "ENDEREÇO INICIRL? 1 * 

20 INPUT E 

30 PRINT E 

4-0 FOP I=E TD 16757 

50 SCROLL 

60 PRINT I; ”- 

70 INPUT P 
80 PRINT P 
90 POKE I.. P 
100 MEX.T X 
110 5CROLL 
120 PRINT “FIM" 


A velocidade deste programa não é compatível com 
o HIGH-SPEED, não permitindo aproveitamento de fi¬ 
tas gravadas nesta velocidade. Em compensação ele pode 
ser carregado num TK85, que passará a ter 3 opções de 
velocidade de transmissão de dados. 

Ao rodar este programa ele pede o endereço inicial. 


Devemos digitar: 


16514 


a seguir toda a lista de códigos decimais da fig. 2. O pro¬ 
grama, através do POKE da linha 90 irá substituindo os 
"0" da linha REM pelos bytes da rotina em linguagem 
de máquina. 

Se você errar algum byte não tem problema: digite 
STOP e NEW LINE interrompendo o programa. A seguir 
comande RUN e indique como endereço inicial o último 
em que você digitou corretamente. 


LI5TRGEM DOS ENDEREÇOS E CODIGOS 
DECIMAIS DA ROTINA PENTASPEED 
PARA INSERIR NA LINHA 1 REM 


185 14- a 

a 

. 205 

16515. 

m 

. 35 

16516 * 

a 

. 15 

16517. 

m 

. 17 

16510. 

* 

.6 

16519. 

m 

. 127 

16520. 

« 

. 205 

16521. 

m 

. 43 

16522. 

• 

. 127 

16523. 

m 

. 2©5 

16524- . 

• 

. 43 

16525. 

m 

. 15 

16526. 

a 

. 201 

16527. 

m 

.205 

16526. 

• 

. 35 

16529. 

m 

. 15 

16530. 

* 

. 33 

16531. 

m 

.29 

16532. 

• 

. 127 

16533. 

m 

.34 

16534. 

• 

.22 

16535. 

m 

.64 

16536. 

• 

. 205 

16537. 

m 

. 112 

16538 - 

• 

. 127 

16539. 

m 

.205 

1654©. 

• 

. 43 

16541. 

m 

. 15 

16542. 

a 

.201 

16543 . 

m 

. 11 

16544 . 

e 

. 11 

16545. 

m 

. 11 

16546 . 

a 

. 0 

16547 . 

m 

. 0 

16548 . 

9 

. 0 

16549. 

m 

. © 

1655©. 

m 

. © 

16551. 

m 

. © 

16552 . 

m 

.205 

16553. 

m 

. 16u 

16554 . 

a 

. 3 

16555. 

m 

. 56 

16556 . 

e 

.249 

16557 . 

m 

. 235 

16558 , 

a 

. 17 

16559. 

m 

. 2©3 

1656© . 

• 

. 18 

16561 . 

m 

.205 

16562 , 

z 

.7© 

18563. 

a 

. 15 

18564 * 

& 

. 48 

16565 . 

m 

. 46 

16566. 

a 

. 16 

16567 . 

9 

.254 

15568 , 

a 

.27 

16569 . 

9 

. 122 

1657© . 

a 

. 179 

16571 . 

m 

.32 

16572 . 

& 

. 244 

16573. 

m 

. 2©5 

16574 . 

a 

. 78 

16575 . 

m 

. 127 

1*5576 . 

c 

. 203 

16577 . 

9 

. 126 

16570 . 

a 

. 35 

16579 . 

9 

. 40 

16580 . 

a 

. 248 

16581 . 

9 

.33 

16582. 

a 

. 9 

16583. 

9 

.64 

16584 . 

a 

. 205 

16585 . 

9 

. 78 

16586 . 

a 

. 127 

16587. 

9 

.205 

fig. 2 
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16538 .x 

. 252 

16589. 

• 

. 1 

1659®.. 

. 24 

16591 . 

m 

.246 

16592 .. 

. 94 

16593. 

m 

. 55 

16594 .. 

. 203 

16595. 

m 

. 19 

16596. . 

. 200 

16597 . 

m 

. 159 

16596.. 

. 230 

16599. 

m 

« 2 

16600. x 

. 198 

16601. 

m 

. 1 

16602 .. 

. 79 

16603. 

m 

.211 

16604 .. 

. 255 

16605. 

0 

. 6 

16606 .. 

. 35 

16607 . 

* 

. 15 

16608 .. 

. 254 

16609. 

m 

.205 

16610. . 

. 70 

16611 . 

m 

. 15 

16612 .. 

. 48 

16613. 

m 

. 114 

16614 .. 

.6 

16615 c 

» 

.30 

16616. . 

. 16 

16617. 

m 

.254 

400 IS • . 

■ 13 

16619. 

m 

. 32 

16620.. 

.238 

16621. 

m 

. 195 

16622.. 

.216 

16623. 

m 

. 127 

16624.. 

.24 

16525. 

m 

.224 

16626.. 

.£95 

16627. 

m 

. 168 

16628.. 

. 3 

16629. 

m 

.203 

16630.. 

. 18 

16631. 

w 

.203 

16632.. 

. 10 

16633. 

m 

, 285 

16634.. 

. 124 

16635. 

• 

. 127 

16636.. 

.24 

16637. 

m 

.251 

16638.. 

. 14 

16639. 

m 

. 1 

16640.. 

. o 

16641. 

m 

. 0 

16642.. 

. 62 

16643. 

m 

. 127 

16644.. 

.219 

16645. 

0 

.254 

16646.. 

.211 

16^4-7 . 

m 

.255 

16648.. 

. 31 

16649. 

m 

. 48 

16650.. 

. 73 

16651. 

, 

.23 

16652.. 

.23 

16653. 

0 

« 5o 

16654.. 

.40 

16655 « 

m 

. 15 

16656.. 

. 241 

16657. 

» 

.241 

16658.. 

. 186 

16659. 

m 

.218 

16660.. 

. 229 

166o1. 

m 

.3 

16662.. 

.98 

16663. 

m 

. 137 

16664.. 

.205 

16665. 

m 

. 124 

16666.. 

. 127 

16667. 

m 

. 203 

16668.. 

. 122 

16669. 

m 

. 121 

16670.. 

.32 

16671. 

0 

. 3 

16672.. 

. 190 

16673. 

m 

.32 

16674.. 

.214 

16o7o• 

m 

.35 

16676.. 

.23 

16677. 

m 

.43 

16678.. 

.241 

16679. 

m 

.253 

16680.. 

.52 

16oõ1. 

m 

.21 

16682.. 

.33 

16683. 


a 

16684.. 

.64 

16685. 

m 

.88 

16686.. 

.205 

16687. 

m 

. 124 

16688.. 

. 127 

16689. 

m 

. 113 

16690.. 

.205 

16691. 

m 

.252 

16692.. 

. 1 

16693. 

0 

.24 

16694.. 

.246 

16695. 

0 

.213 

16696.. 

.30 

16697. 

m 

.49 

16698.. 

.6 

16699. 

m 

. 14 

16700.. 

.29 

16701. 

0 

.219 

16702.. 

.254 

16703. 

m 

.23 

16704. . 

.203 

16705. 

m 

. 123 

16706.. 

. 123 

16707. 

m 

.56 

16708.. 

.245 

16709. 

m 

. 16 

16710. . 

.245 

16711 . 

m 

.209 

16712 .. 

.32 

16713. 

m 

. 4 

16714 .. 

.254 

16715. 

m 

• 8o 

16716. . 

.48 

16717. 

9 

. 178 

16718. . 

.63 

16719 . 

a 

, 203 

16720 .. 

. 17 

16721 . 

c 

.43 

16722. . 

. 173 

16723. 

■ 

.281 

16724 .. 

. 122 

16725. 

m 

. 167 

16726 .. 

.40 

16727. 

m 

. 137 

16728 .. 

.207 

16729. 

0 

. 12 

16730. . 

. 167 

16731 . 

• 

• 6 

16732 .. 

.80 

16733 . 

0 

. 16 

16734 . . 

.254 

16735 . 

m 

. 195 

16736.. 

. 110 

16737. 

m 

. 127 

16738.. 

.33 

16739. 

m 

. 138 

16740.. 

.64 

16741. 

0 

. 17 

16742.. 

.0 

16743. 

0 

. 127 

16744■x 

. 1 

16745. 

0 

.224 

16746.. 

.0 

16747. 

0 

.237 

16748.. 

. 176 

15749. 

m 

.33 

16750.. 

.255 

16751. 

m 

. 126 

16752.. 

.34 

16753. 

m 

. 4 

16754.. 

.64 

16755. 

0 

. 195 

16756.. 

. 195 

16757. 

0 

.3 


Ao terminar esta tarefa apague todas as linhas do pro¬ 
grama A, menos a 1 REM, agora toda cheia de uma es¬ 
tranha sequência de caracteres. A seguir digite as linhas 
de 10 a 70 do programa B (fig. 3). 


PROGRAMA B 


1 REM LN F®_N F?TON L 

N 7 7 51®5-RNDLN ?fp_N F?TAN . 

LN RAND FOR )ACS >LN ??KI 

( RETURM . ~W,4- POKE LN '"ílgfiCS RNDL 
N • f ÍLN UNPLOT ■ .✓ SRUE 7RACS < COS 
B NEU ■LEN ■ 7PEEK CGPY J *7 ( RETU 
RN LN '?'?K'?^2 t RETURN $4 INPUT 7í 
♦0/ STEP LN ST^CS >RCS "LN 'Tffl/' C 
LS Y»<= RETURN PEEK COPY 3K? 

**SC< LET LET ®RBS FAST *7?LN Tffl 
RCS ??4“BiCHR* 7*K LET CLERR 0>! 


taRND^LN TffiTLN UNPLOT ■ ✓ PLOT STR 
% 2L„": 1 < = RETURN ifiC5 T?S PRINT 
t PRINT SGN 4-* RETURN ?KfflZRC S j K 
SSTRN ^gCJfilNT £ÍW»T ( RETURN 
ND) W STEP GOSUB «5 CO PT' "©006 
00000000000008000000000000000000 
90 

IO SRUE “PENTASP EED" 

20PRINT TAB 6; 


30 PRINT ,,,,,,"Ps GRRURR DIGI 

TE RAND USR 32512" __ 

40 PRINT "P/CARREGAR DIGITE RR 
ND USR 32525” 

50 PRINT "PARA GUARDAR ESTA RO 
TINA NO FIM DA RAM DIGITE OURLO 
UER LETRA” 

60 PRUSE 40000 

70 RAND USR 16738 _ 

Prepare uma boa fita, coloque o gravador na posição 
gravar e comande RUN. 0 programa B vai se gravar 
(devido à linha 10) e a seguir já se inicia (fig. 4). 


P/ GRAUAR DIGITE RAND USR 32512 
P /'CRRREGRR DIGITE RAND USR 32512 
PARA GURRDRR ESTA ROTINR NO FIM 
Dft RAM DIGITE OURLOUER LETRA _ 

Ao digitar qualquer letra o programa abaixa o valor 
da RAMTOP de uns 250 bytes e transfere para esta re¬ 
gião reservada o código de máquina contido na linha 
1 REM. A seguir o programa se autodestrói, e o compu¬ 
tador fica com a RAM aparentemente vazia. Não se as¬ 
suste: a rotina está escondidinha no topo da RAM e a 
única maneira de tirá-la de lá é desligar o computador. 
Pegue uma qualquer de suas fitas já gravadas e passe um 
programa para o computador. A seguir coloque uma fi¬ 
ta virgem no gravador, digite: 

RAND USR 32512 

Coloque a fita rodando com o gravador em REC e di¬ 
gite NEW LINE. Seu programa está sendo passado para a 
fita em PENTASPEED. 

Rebobine a fita, digite: 

RAND USR 32525 
e NEW LINE 

Ao passar da fita para o computador um programa de 
5 minutos demorará apenas 1 minuto. 

O 
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CURSO 

aula 4 


DE BOdjOlCj TK 


Até agora, aprendemos a programar o computador pa¬ 
ra que ele executasse várias ordens seguidas; entretanto, 
durante a execução, ele só escrevia coisas na tela, fazia 
cálculos ou "buscava" coisas em suas memórias; em 
outras palavras, ele apenas "falava" mas sem "escutar"! 
ê como, por exemplo, dizer a uma pessoa; (programá-la); 
fale os 10 primeiros números pares! Durante a "exe¬ 
cução" da ordem, ela não necessitará nos ouvir, apenas 
irá dizer os números. Agora experimente dizer a essa 
pessoa: eu quero que você some 2 números! Ora, o que 
ela irá fazer? Ela terá que PERGUNTAR quais são os 
números e "parar sua execução" até que você diga a ela 
quais são os mesmos! Analogamente, no computador, 
existe uma instrução que faz com que, durante a exe¬ 
cução, ele PARE e espere que você coloque um número 
através do teclado! Esta instrução está na tecla I: 
INPUT. Vamos então fazer com que o computador nos 
pergunte 2 números e a seguir os some: 


10 INPUT R 
20 INPUT B 
30 PRINT R+B 


CONVERSE 
COM 

PROFISSIONAl: 


SOFTWARE 

Linha completa 
de software aplicativo 
Desenvolvimento de software 
especifico para sua 
necessidade 
Linha completa de programa 
para TK e CP-200. 


SHOW ROOM E VENDAS: 


assessoria^t 

Untes da escolha de seu micro, 
nos digaqual o seu problema. 
Nós o orientaremos 
na escolha do micro CERTO 
para você 
ou sua empresa. 


CURSOS 

BASIC I, BASIC AVANÇADO 

- Excelente material didático, 
no máximo 10 alunos 
por classe e 1 micro 
para cada 2 alunos. 


Horta solutiqn 

VENHA NOS VISITAR 

AV EUSÉBIO MATOSO, 654 • CEP 05423 • SP 
BEM EM FRENTE AO SHOPPING CENTER ELDORADO 

FONE: 813-3355 


Execute o programa. A tela fica em branco apenas 
com o cursor Q ; não entre em pânico. Ele está obede¬ 
cendo suas ordens. A primeira instrução diz para ele 
PARAR e esperar que alguém digite um número para a 
seguir colocá-lo na variável A na memória. Coloque 
então o número 50 e a seguir NEW LINE. Novamente 
a tela fica em branco; ora, ele está agora esperando o se¬ 
gundo valor. Digite 20 e NEW LINE; finalmente obtere¬ 
mos a soma. . . Note entretanto que a tela em branco é 
um inconveniente que pode confundir bastante, princi¬ 
palmente se o programa for razoavelmente complicado. 
Portanto, é útil escrever algumas "mensagens", princi¬ 
palmente se o seu programa irá ser usado por alguma 
outra pessoa; essas mensagens NÀO interferem na lógica 
do programa, apenas ajudam a sua INTERPRETAÇÃO 
durante a EXECUÇÃO do mesmo; experimente então 
o seguinte: 


4 PRINT 

5 PRINT 
1® INPUT 
18 PRINT 
ao INPUT 
35 PRINT 
30 PRINT 


-EU UOU SOMftR 2 NUMER 

-©URL O PRIMEIRO 
R 

" ©URL O SEGUNDO 
B 

-R SOMR E* 

R +6 


Execute o programa. Note que as linhas 4, 8, 18 e 25 
são apenas MENSAGENS. Acrescente então as seguintes 
linhas: 


5 PRINT 
12 PRINT R 
14- PRINT 

21 PRINT B 

22 PRINT 


Supondo, por exemplo, que você entre com os núme¬ 
ros 60 e 40 teremos na tela: 


EU UOU SOMRR 2 NUMEROS 

GURL O PRIMEIRO *? 

60 

OURL O SEGUNDO T 
4-0 

R SOMR E" 10® 


Como você faria para os números 60 e 40 aparece¬ 
rem não em baixo da pergunta mas IMEDIATAMENTE 
ao lado da mesma? E para que eles aparecessem na mes¬ 
ma linha da pergunta mas na METADE da tela? (Lem¬ 
bre-se do efeito do e da basta colocá-los con¬ 
venientemente nas instruções 8 e 18). 

Tenha então sempre em mente que, ao programar um 
computador, 3 cérebros estão em jogo: o seu, o do com- 
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PULO 
DO SAPO 

*o'Ç x o^ v -- 

v*-\y' PONTOS *300 MR IMO 4 400 jRPQS 1 

* LIM 1*1 


000Í 00OO 000*3 0000 


► O00O ♦♦♦♦ O000 



0 mais recente lançamento da MULTISOFT para o 
seu TK (TK82, TK83 e TK85). 

Emocionante aventura onde vocè conduzirá o 
sapo desde o ponto de partida, até uma casa vazia. 

Você deverá cruzar a auto estrada, sem ser 
atropelado e. em seguida, atravessar um caudaloso 
rio pulando sobre tartarugas e troncos que passam flutuando. 
Para adquiri-lo e entrar para a galeria de recordes do 
pulo do sapo basta enviar carta com seu nome e 
endereços completos, anexando cheque de Cr$ 
5.690,00, nominal à MULTISOFT INFORMÁTICA LTDA. - 
Cxa. Postal 54.121 - CEP 01296 - Sào Paulo - SP 


A 


( -^ 



^ INFORMÁTICA LTOaV J 




putador e o da pessoa que irá usar o programa, E por 
isto que as ''mensagens'' são fundamentais. 

Vamos agora apresentar outra KEY-WORD: trata-se 
do CLS (tecla V); acrescente a linha: 


23 CLS 


0 que acontece? Esta instrução APAGA tudo o que 
havia sido escrito na tela até então. Note entretanto que 
fica difícil ver o efeito da instrução PRINT B pois apaga¬ 
mos a tela logo em seguida. Para evitar isto, seria neces¬ 
sário uma "espera" ou pausa antes que ele executasse 
essa instrução; acrescente então a linha: 

24 POUSE 120 ÍLETRO M) 


e veja o que ocorre. Esta instrução acrescenta uma 
PAUSA ao programa onde para cada SEGUNDO de es¬ 
pera devemos adicionar 60; no caso, a pausa é de 2s; se 
eu quizesse uma pausa de 3.5s deveria colocar PAUSE 
210. Note que durante um INPUT quando o computa¬ 
dor está "parado" esperando um número, não adianta 
fazer BREAK para apagar o programa, pois ele já está 
parado; assim, se você quer interromper, deverá pres¬ 
sionar STOP (SHIFT e tecla A) e a seguir NEW LINE. 

Cabem aqui algumas informações quanto à precisão 
do computador; ele só reconhece 8 dígitos diferentes de 
zero. De fato, usando o programa anterior, tente somar 
111111111 com 0; você verá que é apresentado um re¬ 
sultado ERRADO pois estamos acima da precisão para 


este tipo de NOTAÇÃO de números; note entretanto 
que se o resultado tiver zeros no final ele é capaz de re¬ 
presentar até a 133 casa; some 999.999.999.999 com 1 e 
o resultado estará correto. Se quisermos números maio¬ 
res, outra notação terá que ser utilizada; tente somar: 
9.999.999.999 com 1; você obterá 1 E + 13 que significa 
1 x 10‘ 3 ; assim o computador é capaz de interpretar nú¬ 
meros com mais de 8 dígitos desde que usemos esta no¬ 
tação. 0 mesmo é válido para números muito pequenos. 
0 maior número em valor absoluto que o computador 
TK aceita é: 

1.7014118E + 38 

e o menor em valor absoluto (o mais próximo de zero): 

2.9387359E - 39 

Vamos fazer um programa que utilize as instruções 
aqui apresentadas, e mais uma função que está na tecla 
G (ABS) que serve para calcular o valor ABSOLUTO de 
um número, ou seja, seu módulo; para entendê-la, expe¬ 
rimente antes fazer este pequeno programa: 

10 POR 1=10 TO -10 STEP -1 
20 PRINT TfiB CRBS I);I 
30 NEXT I 


Que tal o efeito? 


Feito isto, iremos então fazer um programa para 
"treinar a tabuada", que pergunte para você o resultado 
de uma operação de multiplicação usando números 
"centrados" por ele escrevendo a sua resposta, a respos¬ 
ta do computador e a diferença entre elas em valor 
absoluto. Vamos fazer com que ele pergunte também 
qual o valor máximo dos números que ele deve multi¬ 
plicar: 


10 RmND 

_ PRINT "EU UOU PERGUNTAR ft U 

Ot-E QURNTQ UALE O PRODUTO DE 2 
NUMEROS" 

3® ÊE 1 *! "OURL O NUMERO MÁXIMO 
OUE EU POSSO USRR 
40 INPUT MAX 
50 CLS 

5 £ f- FT 5 = Í WT '2+MAXiRND + l.i -MAX 
Z£ L£ T S = INT f 2iMAX*RND + 11 -MAX 
S0 PRINT R; "X"; B; 

90 INPUT P 
100 PRINT 

110 PRINT "SUA RESPOSTA “:P 
120 RRJNT "RESPOSTA CORRETA " ; f) 
•SB 

130 PRINT 
140 PRINT 
SB> 

150 PAUSE IS© 

160 CLS 
170 GOTO 20 


•DIFERENÇO "j. ABS (P-R 


Note que na linha 170 foi usada uma nova 
KEY-WORD: GOTO (tecla G) que significa "vá para" 
dada instrução (no caso 20); seu efeito é análogo ao 
RUN só que ela NÀO executa um CLEAR. De fato, pare 
o programa (usando BREAK ou STOP conforme o caso) 
e, execute-o novamente; só que, ao invés de fazer RUN e 
NEW-LINE faça GOTO 10 e NEW LINE! 

Preste atenção na estrutura utilizada nas linhas 60 e 
70 para "gerar" números positivos ou negativos com va¬ 
lor absoluto menor do que o valor máximo! o 
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QUEBRA-CABEÇA ||| International 


Este mês: 



AS IDADES DAS TRÊS FILHAS 


O quebra-cabeça deste mês consiste em fazer com 
que, de algum modo, o TK resolva um problema já bas¬ 
tante conhecido. 

Um matemático (A), propôs a um de seus amigos, 
também matemático (B), que ele "adivinhasse" as idades 
de suas três filhas. Entre eles transcorreu o seguinte diá¬ 
logo. 

Matemático A: "O produto das idades de minhas três fi¬ 
lhas é igual a 36". 

Matemático B: "Só com essa informação é impossível 
saber quais as três idades". 

Matemático A: "Está bem. Saiba, então que a soma das 
idades das minhas filhas é igual ao número daquela resi¬ 
dência" (Disse isso apontando para uma casa próxima de 
onde se encontravam). 

Matemático B: "Ainda assim, me é impossível precisar as 
idades". 

Matemático A: "Vou lhe dar uma última pista. A mais 
velha de minhas filhas dança "ballet". 

O outro matemático pensou durante algum tempo e 
finalmente afirmou: 

Matemático B: "Com certeza, as idades de suas filhas 
são . . . " 

Obviamente, as idades devem ser consideradas como 
números inteiros e em anos. Assim, uma pessoa com 18 
anos e 6 meses de vida tem idade igual a 18 anos. 

A exemplo do Quebra-Cabeça do nP 2 (Verdadeiro 
ou Falso), não estamos interessados nas três idades das 
filhas do Matemático (A), mas sim num programa que as 
obtenha. Aqui, também, é conveniente utilizar preferen¬ 
cialmente as instruções e comandos destinados à análises 
lógicas: 

(IF . . . THEN, OR, AND, NOT, > < =, etc.). 

O 


Vou F? 
solução 

Renato da Silva Oliveira 

Para um ser humano, talvez a forma mais fácil de re¬ 
solver esse problema seja escolher entre as dez (10) as¬ 
serções as duas mais antagônicas, (isto é, as duas cujos 
valores V ou F, sejam necessariamente diferentes) e atri¬ 
buir a uma delas um valor. A partir daí, obter os valores 
das demais asserções e verificar se há coerência entre 
elas. Passando as vistas pelas dez afirmações a dupla es¬ 
colhida provavelmente será formada pelas asserções 9 e 
10. De fato, se a asserção 9 for verdadeira (valor V) a as¬ 
serção 10 será falsa (valor F); e, se a asserção 9 for falsa 
(valor F) a asserção 10 será verdadeira (valor V). 

Para facilitar a análise das asserções, nós as designare¬ 
mos convenientemente por A(1), A(2), ... até A( 10) se¬ 
guindo a mesma ordem em que elas são apresentadas. 

Pode-se fazer, por exemplo: 

A(10) = F ; portanto . . . 

A(9) = V ; portanto . . . 

. . . e assim por diante, até concluir algo a respeito da 
coerência ou não dos valores dados à asserções. 

No exemplo acima, em que supôs-se A(10) = F, che¬ 
ga-se a uma incoerência, o que mostra que, se há uma so¬ 
lução, nela o valor de A(10) tem que ser V. Tomando-se 
A(10) = V obtém-se o resultado coerente mostrado 
abaixo: 

A(1) = V A(6) = F 

A(2) = F A(7) = F 

A(3) = V A(8) = V 

A(4) = F A(9) = F 

A(5) = V A(10) = V 

A solução do problema, entretanto, não é solução do 
"Quebra-Cabeça". O que queremos é um programa para 
que o TK encontre a solução! 

Podemos pensar em fazer um programa que "instrua" 
o TK para que ele proceda de modo análogo ao de um 
ser humano, entretanto, além de extremamente comple¬ 
xo, um programa desse tipo deve ser deveras extenso e, 
por conseguinte, levará muito tempo para ser rodado 
completamente. Provavelmente, tanto para o "micro" 
como para seu programador, o processo mais fácil e rá¬ 
pido é, sem nenhum paradoxo, o mais simples e traba¬ 
lhoso . 

continua 
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(Por exemplo: Fazer mil contas de somar é mais sim¬ 
ples e mais trabalhoso que fazer uma única extração 
de raiz quadrada). 

Tal processo consiste apenas em atribuir a cada asser¬ 
ção um valor (V ou F) e para cada sequência de valores 
dados a A(1), A(2), . . A(10) verificar se há ou não 

coerência. As asserções são em número de dez (10), cada 
uma podendo assumir dois valores (V ou F), portanto o 
número de sequências possíveis é 2 ia = 1024 (desde 
A(1) = A(2) = . . . = A( 10) = F até A(1) = A(2) 

...= A(10) = V). , 

0 que o TK terá que fazer é gerar cada uma das 1024 
sequências de valores para as asserções e testá-las uma 
por uma, mostrando na tela apenas as que forem coeren¬ 
tes e, portanto, soluções do problema. O fluxograma a 
ser seguido deve ser algo semelhante ao mostrado 
abaixo: 



TODAS AS % 

1024 SEQUÊNCIAS- 
POSSÍVEIS FORAM 
GERADAS? > 


É COERENTE? 


GERE UMA SEQUÊNCIA DE 
DEZ VALORES (V ou F) 


ATRIBUA ESSES VALORES 
ÀS DEZ ASSERÇÕES 


VERIFIQUE A COERÊNCIA 


MOSTRE A 
SEQUÊNCIA 
NA TELA 


FIM 


INICIO 


Ao tentar traduzir o fluxograma para a linguagem 
BASIC encontramos maior dificuldade quando temos 
que escrever o conteúdo das asserções numa linguagem 
conveniente para o TK. Uma solução possível é aprovei¬ 
tar as próprias características do micro e chamar de 1 
(um) ao valor V e de 0 (zero) ao valor F, utilizando prin¬ 
cipalmente as instruções e comandos destinados a exe¬ 
cução de operações lógicas (IF . . . THEN; OR; AND; 
NOT; > etc . . .). 

Abaixo encontra-se listado um dos possíveis progra¬ 
mas obtidos como sugerido pelo fluxograma. Digite-o 
e verifique você mesmo o resultado. Se você tem ape¬ 
nas 2 Kbytes de RAM, não se assuste com o fato de a lis¬ 
tagem confinar-se ao topo da tela. Isso acontece por que 


esse programa ocupa 1688 bytes e não sobra lugar na 
memória para o restante da listagem ser mostrado na te¬ 
la. O principal inconveniente desse programa éseu tem¬ 
po de processamento (cerca de 25 min). Como sugestão, 
ponha-o para rodar e vá tomar um café e ler um pouco 
de jornal, superando engenhosamente o inconveniente! 


10 

REM 

“U OU F" 

20 

FRST • 

30 

LET 

D=URL ** 7 ** 

40 

D IN 

R C 1©) 

50 

FOR 

N=PI/PI TO URL "2**10' 

60 

LET 

N =N-PI/PI 

70 

FOR 

K =P I SP I TO URL "10 ** 

©0 

LET 

B = M / 2 

90 

LET 

R ( K ) =M -2 * INT l B ) 

100 

LET 

M = INT (B) 

110 

NEXT 

K 

200 

DXH 

S ( 10) 

210 

FOR 

X=PI/PI TO URL “10’‘ 

220 

LET 

Q=PI-PI 

23© 

FOR 

L=PI SP I TO X 

240 

LET 

0=0+R(L) 

250 

NEXT 

L 

250 

LET 

S (X) =o 

270 

NEXT 

X 

300 

D IN 

U ( 10) 

310 

LET 

U (PI/PI) =C ( (S (4) =PI/PI) 

OR (S (8) = 

3) OR (S (6) =5) ) 

320 

LET 

U C2) = (5 (3) < (5(10) -S (8) 


) 


330 LET U(3)=(5(10)<=5) 

34-0 LET U(4)=(( 5(3) =3) OR (S (4T 
-S (1) =31 OR (5 (5) -5 (2) =3) OR (5 ( 
6)-5(3)=3) OR (5(7)-S(4)=3) OR C 
S (©) —5 (5 ) =3) OR (S (9) -S (6) =3) OR 
(S ( 10) -5 (7) =3) ) 

350 LET U(5)=(5(10)>=5) 

360 LET U(6)=(fi(7)=fi(10)) 

3*70 LET U (7) = (R (©) + R ÍSJ 4-R (10) =P 
X /P X ) 

3S0 IF R(10)=PI/PI THEN LET UC© 
)=((fi(6)=PI-PI) RND (fl(9)=PI-PI) 


381 
) = PI 
390 
3) +R 
) OR 
) = 2 ) 
400 
410 
420 
4-30 
4.4-0 
450 
460 
C.. D 


IF 
SP I 
LET U 
(4.) =PI 
( (R (2 
) ) RND 
LET U 
FOR R 
IF U ( 
GOTO 
NEXT 
FOR C 
IF U ( 
: "U" 


R(10)=PI-PI THEN LET UC© 


(9) 
-PI 
) =P 
(R 
( 10 
=PI 
R) = 
50© 
R 

= PI 
C) = 


= ( ( (5 (2) =2) OR ( (R C 
) RND (R (5) +R (6) =2) 
I-PI) RND (R ( 3) +R ( 4- 
(6)=PI/PI)) 

)=(R(9)=PI-PI) 

SP I TO URL ** 10" 

RCR) THEN GOTO 4*4.0 


SP I TO URL ,, 10*‘ 
PI/PI THEN PRINT RT 


470 IF U(C)=PI-PI THEN PRINT RT 
C « Di "p" 

4-é© ’ NEXT C 

490 LET D=D+URL "2" 

500 NEXT N 

510 POR Z =PI/PI TO URL "9" 

520 PRINT RT Z,PI/PI;"flf ".Z;") 


521 NEXT Z 

525 PRINT RT URL "10",PI/PI;"fl( 
10 ) =" 


As linhas de 50 a 110 geram uma sequência de 10 va¬ 
lores. As de 210 a 270 apenas auxiliam na análise da 
coerência. As linhas de 300 a400são as asserções tradu¬ 
zidas e escritas de forma conveniente (verifique como!) 
para o TK. As linhas de 410 a 440 testam a coerência e, 
finalmente, as linhas de 450 a 525 apresentam o(s) re- 
sultado(s)** na tela. 


** (Nada garante que haja apenas uma solução a prin¬ 
cípio!) 
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PROGRAMA DO LEITOR 


Bernardo C. Stein 


O seu computador TK82 ou TK85 pode ser usado 
como um eficiente professor. O Programa que apresen¬ 
tamos adiante foi criado para auxiliá-lo a memorizar pa¬ 
res de informações, como por exemplo, países e suas ca¬ 
pitais, elementos químicos e seus símbolos, palavras em 
português e sua tradução em inglês, e assim sucessiva¬ 
mente. 

Ele foi adaptado a partir de um programa publicado 
originalmente na revista americana SYNC de Set/out de 
82 . 

Se você tiver três horas de paciência para entrar com 
o programa no seu TK, você será recompensado com um 
excelente auxiliar de instrução. Vale a pena. . . Vamos 
lá? 

lê Parte: ENTRADA DO PROGRAMA 

Entre com o programa conforme listado na figura 1. 
E recomendável ir gravando o programa em fita à medi¬ 
da que você for digitando, para não correr o risco de 
perder todo o seu trabalho com alguma falta de energia 
elétrica, por exemplo. 


7 REM O PROFESSOR 

TR9DÜZ IDO E RDRPTRDG 
POR B. C. STEIN 
•JUNHO 1983 

S REM PRRR "RUN" O PROGRRMfl. 
ENTRE "GOTO 103" 

9 REM PRRfl ENTRRR COM NOUOS 
DflDOS OU PRRR MRNIPULRR O PROGRR 
Mfl, ENTRE "GOTO 1000" 

Í0 LET B =INT tRNDiTOTi +1 

12 CL5 

13 PR INT RT 4 .O; "-DIGITE O PRF: 
R RETORNAR RO MÈNÜ-" 

14- RETURN 

15 LET D í = INKEY$ 

16 IF D$=”G" THEN GOTO 993 

17 RETURN 


20 PRINT "NESTR OPCRO, ”;C$j" 

21 RETURN 

25 PRINT "UOCE DISSE OUE E* 

D$; 

26 RETURN 

30 PRINT TRB S:"UOCE RCERTOU." 

31 RETURN 


100 

PR INT 

RT 

5,0;"O PROFESSOR 

D 

E" 






102 

PR INT 





104- 

PR INT 

RT 

10.0;-POR 

FAUOR, 

E 

NTRE 

COM O 

SEU 

NOMÈ.- 



110 

INPUT 

c$ 




115 

CLS 




120 

PR INT 

RT 

4- .. G— COMO 

UP.I 

; c 

$ ; 






' 121 

PR INT 

“EU 

UOU AJUDAR UOCE 

R 

CONHECER 

•• . 

T$ : - . - 



122 

PR INT 

"DADO/A Uli/A 

- . Ki; - 

•* 

123 

PR INT 

-UOCE IRfi RPRENDER 

SE 

Ü/SÜR 

•• 




124- 

PR INT 

N$; 

-, E UICE 

-UER5R• 

" 

12S 

PR INT 




127 

SLOU 





128 

PR INT 

TRB 

10.; -MENU 

•* 


129 

PR INT 





130 

R ** 

PR INT 

11 

1. REUISRO DR LIST 

131 

PR INT 

•• 

2 . TESTE 

PRRTICO 

•» 

132 

T •• 

PR INT 


3 . TESTE 

DE RAFIDE 

133 

PR INT 

•• 

4.. FIM DR 

RULR- 


134. 

PR INT 





135 

PR INT 

"ESCOLHA UMA 

DRS OPCO 

ES P.CIMR.- 





14.0 

INPUT 

R 





14-2 IF Rol RND R<>2 RND R<>3 R 
ND R < > 4- THEN GOTO 14-3 
14-5 CLS 

15© GOTO R *200 

203 PR INT RT 5,0; ”-REvIS 

RO DR LISTR-" 

205 GOSUE 20 

210 PRINT "EU UOU MOSTRAR UH, 'UM 
R “;Ni;" " , 

continua 
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2I"l PRINT "E RESPECTiyC/fi ".; fl$ ; 

212 PRINT "DEPOIS DE MOSTRfiR OS 
";TOT;" ITENS. PASSAREI fi RELR 

CRO RO CONTRRRIO." 

213 PRINT " ESCOLHA UM NUMERO D 

E 0 R 9, 0-PRSSRGEM MRIS RRP 

IDR, 9-PRSSRGEM MRIS LEN 

"PP * l# 

215 INPUT 2 

217 IP 2 <0 OR 2>9 THEN GOTO 215 
220 FOR R=1 TO TOT 
225 GOSUE 12 

230 PRINT RT 10.2;BS(R);” 

235 FOR N=0 TO i+2f2 

236 NEXT N 
24-0 GOSUB 15 
24.5 PRINT R$(RJ 

250 FOR N=0 TO 4-+2*Z 

251 NEXT N 
255 GOSUB 15 
260 NEXT R 

265 FOR R=1 TO TOT 
270 GOSUB 12 

275 PRINT RT 13.2.; fi$ (R) ; " •• ; 

280 FOR N=0 TO 4.+2*Z 

281 NEXT N 
235 GOSUB 15 
290 PRINT 6$(fi) 

295 FOR N=0 TO 4-+2*Z 

296 NEXT N 

300 GOSUE 15 
305 NEXT R 

310 GOTO 220 

4-00 PRINT RT 5.0;" -- er^-r 

E PRRTICO- 

4.05 GOSUB 20 

4.10 PRINT “UOCE RESPONDERfi R 30 
" OUESTRO 1 


QUESTÕES: 

q i c" 

4-11 PRINT 


i i-- - ‘EU LHE DOU UM /fi '* ; m* 

UR ";N*f"T" UOCE ENTRfi COM SEÜxI 

9*30" PR * N ^ QUESTRO 16 

nSÍIIÍ “FRREMOS O INUERSO." 
4X15 PRINT "ENTRE ""NEU LINE"" P 
RRR COMECRR" H 

4-17 LET U=0 
4.18 INPUT Z$ 
f 19 XF F2 THEN GOTO 4-35 
4-20 FOR R = 1 TO TOT 
4-25 LET E$(A)=CHR$ 0 
4-30 NEXT R 
4.35 FOR R = 1 TO 15 

4-4.0 GOSUB 10 

445 IF E$(B)="X" THEN GOTO 4-4-0 
4-4-7 PRINT RT 9.0;"QURi_ E O SfH 
N$;" DO/fl" 

4.50 PRINT RT 10.8;R$(B> 

4.60 INPUT D$ 

4-62 GOSUB 25 
4-65 GOSUE 16 

470 IF LEN D $ =L2 THEN GOTO 4-75 
4-72 LET D$=D$ + " ” 

4-73 GOTO 4-70 

475 IF D$=B$ÍB) THEN GOTO 4-90 

476 PRINT "UOCE ERROU. O CERTO 
E* " 

4-77 PRINT TRB 
4-78 FOR N=0 TO 35 

4-79 NEXT N 
4-80 GOTO 4-97 

4-90 IF NOT F2 THEN LET E$(B)="X 

4-92 GOSUB 30 
4-93 LET U=U + 1 
4-95 FOR N=0 TO 16 

4-96 NEXT N 
4-97 NEXT P. 

500 FOR R = 1 TO 15 
505 GOSUB 10 

510 IF E$(B)="X" THEN GOTO 505 
512 PRINT RT 9.0; " OURL E 0,'R "J 


M; 


;Í3 PRINT "CUJO/A " E . " 



520 INPUT D$ 

525 GOSUB 25 
527 GOSUB 16 

530 IF LEN D$=L1 THEN GOTO 54-5 
535 LET D*=D$+" " 

54.0 GOTO 530 

54-5 IF Dí=A$iB) THEN GOTO 560 

550 PRINT "UOCE ERROU. O CERTO 

E« " 

551 PRINT TRB S;R$(B) 

553 FOR N =0 TO 4.0 

554- NEXT N 

555 GOTO 575 
560 GOSUE 30 

565 IF NOT F2 THEN LET E$(B)="X 

570 FOR N=0 TO 20 

571 NEXT N 

572 LET U=U+1 
575 NEXT R 
580 CLS 

534- 3LOU 

585 PRINT RT 9.0;C$.". UOCE FEZ 

";U;" PONTOS." ' ’ * 

586 PRINT 

590 PRINT "DIGITE “"NEU LINE"" 

PRRR O MENU." 

592 INPUT D $ 

595 GOTO 990 

600 PRINT RT 5.0;" -TESTE 

DE RRPIDEZ- 

605 GOSUE 20 

610 PRINT "UOCE TEM 60 SEGUNDOS 
PRRR ENTRRRCOM O MRIOR NUMERO P 

OSSIUEL DE RESPOSTAS." 

611 PRINT "EU DOU UM/R "M".. 

612 PRINT "UOCE ENTRA SEU/SUA ” 
N $ ; " . " 

613 PRINT 


continua 
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+1 PONTO POR EcSPDS 

-1 PONTO POR RHSPOS 

0 PONTOS SE U O CE N 

E ENTRAR *' "NEU L 


eia. PRINT 
TA CERTR. 

TR ERRRDfi. 

RO SOUBER' 

INE '* " . " 

615 PRINT 

616 PRINT "ENTRE ""NEU LINE"" P 
RRR COMECRR" 

617 LET U=0 
613 FflST 

619 INPUT D$ 

620 POKE 164-36.0 

625 POKE 164.37.0 
630 GOSUE 10 

64-0 PRINT RT 10.8. RS (Bí 

64-5 INPUT D$ 

64.7 IF PEEK 164-36 +256 ■àrPEEK 164-3 
7<62500 THEN GOTO 530 
650 IF D*="” THEN GOTO 630 

655 GOSUB 16 

657 IF LEN D*=L2 THEN GOTO 660 

658 LET D$=D$+" " 

659 GOTO 657 

660 IF D$<>B$£B) THEN LET U=U -1 

665 IF Dt=B$(B) THEN LET U=U+1 
670 GOTO 630 

800 PRINT RT 9.0;"UOCE SE SRIU 

MUITO BEM, ":C$;"." 

805 FOR N=0 TO 20 

806 NEXT N 

807 PRINT 

810 PRINT "ESPERO QUE TENHR GOS 
TROO DE RPRENDER RLGO NOUO." 

812 PRINT 

815 FOR N=0 TO 20 

816 NEXT N 

820 PRINT "iiiítíiRTE 1 R PROXIM 
R DEZtiiitif 

822 FOR N=0 TO 200 

823 NEXT N 

824. CLS 

825 GOTO 100 

990 CLS 

991 PRINT RT 5.14.:"" 

995 GOTO 126 

996 3RUE T$ 

997 GOTO 100 
990 CLS 

1000 PRINT RT 6,0;"ROTINA PRRR C 

RIACRO E REUISRO DE DADOS." 
1005 GOTO 1328 

1008 LET F1=0 

1009 PRINT RT 10.5;"ENTRE COM O 

TITULO DO SEU PROG 

RRMR." 

1010 INPUT T$ 

1012 LET F2=0 
1015 CLS 

1020 PRINT RT 9.0:"ENTRE COM O T 

ITULO (NO SINGULAR)DO PRIMEIRO G 
RUPO DE ITENS DE SUR RELRCRO, 
DE PREFERENCIA OS ITENS MRIS LO 
NGOS." 

1030 INPUT M$ 

1035 CLS 

104-0 PRINT RT 9.0; "QUANTOS DIGIT 
OS TERR R PALAURA MRIS LONGA DO 

PRIMEIRO GRUPO DE ITENS?" 

1050 INPUT LI 
1055 CLS 

1060 PRINT RT 9.0;"ENTRE COM O T 

ITULO (NO SINGULAR)DO SEGUNDO GR 
UPO DE ITENS." 

1070 INPUT N* 

1073 CLS 

1075 PRINT RT 9,0; "QURNT OS DIGIT 

OS TERR R PRLRURA MRIS LONGR DO 

SEGUNDO GRUPO DE ITENS?" 

1080 INPUT L2 
1035 CLS 

1090 PRINT RT 9,0;"QUANTOS ITENS 

NO TOTAL, TERR R SUR RELACRO?" 
1095 INPUT TOT 
1100 CLS 

1105 PRINT RT 5.0;"TITULO-" 

1106 PRINT T$ 

1110 PRINT "TITULO DQ 1. GRUPO D 
E ITENS:- ";M$ 


1115 PRINT "MAIOR PALAURA DO 1. 

GRUPO:- ";Li;” LETRAS." 

1120 PRINT "TITULO DO 2. GRUPO D 
E ITENS:- ";N$ 

1125 PRINT "MAIOR PALAURA DO 2. 

GRUPO:- ";L2;" LETRAS." 

1130 PRINT "TOTAL DE ITENS Dfl RE 
LRCRO:- ";TOT 

1135 PRINT 

114-0 PRINT "RS INF ORMRCOES ESTRO 
CERTAS-S/N?" 

114-2 INPUT Z$ 

114.5 IF Z$ = "S" THEN GOTO 1151 

114-7 IF Z$ = "N" THEN RUN 999 

1150 IF Z$<>"S" OR Z$<>"N" THEN 

GOTO 114.0 

1151 IF TOT <4.0 THEN LET F2 = i 

1160 DIM R$tTOT.Ll) 

1165 DIM 6$(TOT.L2) 

1170 DIM E$(TOT) 

1175 CLS 

1185 PRINT RT 10,0;"ENTRE COM O 

1. ITEM DO 1. GRUPO.DEPOIS COM O 

1. ITEM DO SEGUNDO GRUPO; ENTRE 
COM O 2. ITEM DO 1.GRUPO. O 2. 
ITEM DO 2. GRUPO. E RSS 

IM POR DIANTE." 

1190 FOR A=1 TO TOT 

1200 IF NOT F1 THEN GOTO 1250 

1205 SCROLL 

1210 PRINT M$; "--", R$ (R) 

1215 SCROLL 

122© PRINT N$;"-":B*(A) 

1225 INPUT Z$' 

1230 IF Z*="" THEN GOTO 1290 
1250 SCROLL 

1255 PRINT M$;" - ": 

1260 INPUT R$(R) 

1265 PRINT A*(R) 

1270 SCROLL 
1275 PRINT N*; 

1230 INPUT B$(R) 

1285 PRINT B$(fi> 

1290 NEXT R 
1292 CLS 

1295 IF F1 THEN GOTO 132© 

PRINT RT 7,0;" NOS URMOS R 
GORR REUER CRDR PRR DE ITENS. 

RPRRECEREH NR TELR ENTRE°"“NEU 
LINE”",SE ESTIUEREM CORRETOS. 

1301 PRINT " ENTRE ""X"", E ""N 
EU.LINE"", SE ES TIUEREM ERRADO 

1302 PRINT " NESTE CASO. UOLTE 
R ENTRRR COM O ITEM." 

1305 LET F1=1 
1310 GOTO 1190 

1320 PRINT RT 5,5;"UOCE PODE RGO 

1323 PRINT 
1330 PRINT 

1335 PRINi ”1. CRIRR UM NOUO ARO 

!336'PRINT “2. REFRZER R REUISRO 
DO AROUIUO." 

1338 PRINT "3. ""SAUE"" O PROGRR 

1339 PRINT 

134.0 PRINT "ESCOLHA UMA DRS OPCO 

1345 INPUT R 
134-6 CLS 

134.7 IF R =3 THEN GOTO 1370 
134-8 IF R = 1 THEN RUN 1007 
1350 IF R=2 THEN GOTO 1300 
1355 GOTO 1330 
136© CLS 

OT 1010 - ; " ACIONE SEU 
GRAUADOR NR POSICRO ""REC"", E 
ENTRE ""NEU LINE""." 

1380 INPUT Z$ 

1335 CLS 

1390 IF Z $ = "" THEN GOTO 996 
1400 STOP 

continua 
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LIGUE-SE À 
INFORMÁTICA 


NÚCLEO I 

Av Pacaembú, 1.280 
Fones: 66.7656/66.1513 


NÚCLEO II 

R.Tomás Carvalhal. 380 
(Próximo Estaçáo Metrô Paraíso) 
Fone: 570.6097 


FAÇA COMO OS 
FUNCIONÁRIOS DA 
ALCAN, XEROX, 
SEARL£. COPAS, 
INTELPA, DARUNG, 
AIR SERVICE: 


MATRICULE-SE NA 
COMPUTADORES. 
CURSOS DE 


BASIC e COBOL. 

• Número limitado de alunos por 
classe * 1/3 de todas as aulas com uso 
direto dos computadores, inclusive nos cursos de 
Cobai • Professores altamente qualificados • Cursos 
apostilados e apresentados com transparências • Modernas 
instalações com vários equipamentos Dismac, Prológici, 
Sysdata entre outros • Preços extremamente acessíveis. 


COMPUTADORES 


A NOVA MANEIRA DE 
APRENDER A PROGRAMAR 


Uma vez digitado o programa proceda da seguinte 
forma: 

29 Parte: MANIPULAÇÃO DO PROGRAMA 

1) Se você estiver no modo FAST, volte ao modo 

SLOW 

2) Nunca, nunca mesmo, entre com RUN 

3) Digite GOTO 1000 

4) Aparecerá o ''MENU'' com 3 opções (veja fig. 
nó 2) 

5) Escolha a opção nP 1 e NEW LINE. 

6) Siga as instruções do programa: 

a — escolha o título; por exemplo, PAÍSES E SUAS 
CAPITAIS (este será também o título com o qual o pro¬ 
grama será gravado mais adiante. 

b — escolha título (no singular) da 19 série de dados: 
PAIS (no nosso exemplo). 

c - forneça o número de letras da palavra mais com¬ 
prida, por exemplo: 15. 

d — e — siga o mesmo procedimento para o segundo 
grupo de informações. Por exemplo: CAPITAL e 15 dí¬ 
gitos. 

f — Entre agora com o número de países e capitais 
que você quer listar, por exemplo, 60. 

7) O programa então lhe auxiliará a fazer uma revisão 
dos dados entrados até agora. Se houver algum erro en¬ 
tre "N" (não) e volte a fornecer os dados solicitados. 

8) Se estiver tudo certo entre "S" (sim) e, então, co¬ 
mece a fornecer ao computador os dados (no nosso 
exemplo: país e sua respectiva capital) até completar a 
série. 


Se você perceber que cometeu alguns erros, prossiga: 
haverá oportunidade de se fazer a correção por ocasião 
da revisão. 

Após entrar com todos os pares de informações o 
programa auxiliará você a fazer uma revisão. A cada par 
de dados entre "NEW LINE" se a informação estiver 
correta. Entre "X" se estiver errado e corrija a informa¬ 
ção, entrando novamente com o país e sua capital. 

9) Após a revisão, o programa volta ao menu. Neste 
ponto escolha a opção 3. Coloque seu gravador em 
"REC" e grave (SAVE) o programa em fita. 

39 parte - USO DO PROGRAMA 

Depois de todo nosso trabalho e dedicação (ufa. . .), 
estamos agora prontos para usufruir das aulas do nosso 
professor cibernético. 

1) Após ter gravado o programa em fita ou quando, 
numa outra oportunidade, você passá-lo da fita para o 
gravador, usando o comando LOAD "PAÍSES E SUAS 
CAPITAIS" (no nosso exemplo, é claro) ele se iniciará 
automaticamente convidando você a fornecer seu nome. 

2) A partir desse momento o tratamento entre o 
computador e você será personalizado, ele se dirigirá à 
você e lhe mandará o menu de opções que você tem para 
memorizar os "PAÍSES E SUAS CAPITAIS" (veja fig 
3). 

3) Escolhendo a opção nó 1 ; revisão da lista, você 
poderá rever as capitais e seus respectivos países e vice- 
versa. 

Você pode escolher a velocidade de revisão sendo 0 
a mais rápida e 9 a mais lenta. 

Para interromper a revisão entre Q e NEW LINE que 
também interromperá as opções nó 2 e 3 e retornará ao 
MENU. 

4) Na opção nó 2: 

0 computador escolherá aleatoriamente 15 países e 
você deve entrar com a sua respectiva capital. 

Depois ele escolherá 15 capitais e você deverá forne¬ 
cer o respectivo país. No fim você será informado quan¬ 
tas respostas corretas você deu. No caso de você ter mais 
do que 40 itens fornecidas ao computador ele não repe¬ 
tirá a pergunta cuja resposta dada estiver correta. 

Na opção 3, que é um teste de rapidez, você deverá 
fornecer em segundos o maior número possível de capi¬ 
tais para os países perguntados. Cada resposta certa vale 
1 ponto, cada resposta errada você perde um ponto. Se 
você só entrar NEW LINE você não perde nem ganha. 

A opção nó 4 é um final para o programa, que se 
reiniciará em segundos. Nesta opção é fácil dar um 
"BREAK" no programa para poder digitar "GOTO 
1000 e preparar uma aula diferente. 

Claro que você pode preparar diversas aulas "diferen¬ 
tes" com o PROFESSOR e armazenar cada uma, com 
seu respectivo nome, em fita. 

Se você quiser armazenar o programa em fita sem aula 
alguma, sugerimos que após ter entrado com ele no com¬ 
putador, armazená-lo em fita digitando SAVE "O PRO¬ 
FESSOR". 

Quando, em outra ocasião, você quiser usá-lo para 
preparar uma aula entre LOAD "O PROFESSOR" e 
após tê-lo no computador entre "GOTO 1000 ". 

Boa aula e boas notas! 


MICROHOBBY 17 


















PROGRAMA DO LEITOR 

OTHELLO 



Edson Mikio Yoshida 
Nelson Murassaki 


Este programa foi originalmente publicado na revista 
japonesa "BASIC — jogos para calculadoras programá¬ 
veis" e foi adaptada para o TK para ser rodado em modo 
"FAST" (versão original para calculadora programável 
FX-702P). 

O objetivo consiste em conseguir o maior número de 
fortunas possível, portanto, ganha aquele que tiver 
maior número de fortunas em jogo após o preenchimen¬ 
to das casas vazias (+) ou zerar o adversário dentro de 
um tabuleiro de 8x8. 

Para conseguir estas fortunas é necessário prensar as 
peças do adversário e fazê-lo entregar a você, assim te¬ 
mos as seguintes regras: 

a) Só é possível adquirir suas fortunas prensando uma 
ou mais peças do adversário (H ) em duas extremidades 
tanto nas diretas como diagonais, digitando para isso as 
coordenadas onde você deseja colocar a sua peça, pri¬ 
meiro na horizontal e depois na vertical o computador 
fará o mesmo após a sua jogada. 

Exemplo: 

X = ? 4 depois NEW LINE 
Y = ? 5 depois NEW LINE 

b) Caso não seja possível realizar o item anterior, isto é, 
fique sem saída, não tendo lugar para colocar sua peça, 


é necessário passar a sua vez, digite um número negativo. 
Exemplo: 

X = ? — 1 depois NEW LINE. 


1 REM EDSON MIKIO YOSHIDR 

E 

NELSON MURRSSftKI 

2 DIM C$(16,8) 

3 DIM R$(8,8) 

4. LET P = 1 

5 GOTO 97 

6 PRINT RT 16,2;” 

7 PRINT RT 17,2; = 

8 INPUT X 

9 LET Z=X + 1 

10 GOSUB 21 

11 LET X = INT Z 

12 PRINT RT 17,2; “Y^' 

13 INPUT Y 

14 PRINT RT 17,2; M 

15 LET Z=Y+i 

16 GOSUB 21 

17 LET Y = INT Z 

18 IF R$ ÍX,Y) THEN GOTO 28 

19 PRINT RT 11,5;**OUTRR UEZ” 

20 GOTO 6 

21 IF Z<=0 THEN PRINT RT 11,5; 

'PRSSE 

22 IF Z<=0 THEN PRUSE 100 

23 PCKE 16437,255 

24 PRINT RT 11,5; u 

continua 


18 MICROHOBBY 











25 IF Z<1 THEN GOTO 36 

26 XF Z < =8 THEN RETURN 

27 GOTO 19 

28 LET B$ = “H“ 

29 LET G$=“0“ 

30 LET P=0 

31 LET 0—3 

32 PRINT RT 16,2; M UOCE ";X-1; “ 
";Y-1 

33 GOSUB 51 

34- PRINT RT 5 , 2 ; “ 

35 GOSUE 81 

36 LET B$ = “0*‘ 

37 LET G$ = “H* 

38 LET P = 1 

39 LET 0=3 

4.0 FOR 5 = 1 TO 26 

4.1 FOR R=Q TO 1 STEP -2 

4.2 LET X=URL C$(S.R) 

4-3 XF X =9 THEN GOTO 6 
4.4. LET T =R — 1 

4.5 LET Y=URL Cí (S.T) 

^ 4.6 IF R$ CX ,Y) = “ + ** THEN GOSUB 5 

4.7 IF 0 = 1 THEN PRINT RT 5.2:"C 

OMP. X-l; “ “; Y-i 

4.8 IF 0 = 1 THEN GOTO 81 

4.9 NEXT R 

50 NEXT S 

51 FOR I = -l TO 1 

52 FOR <J = -1 TO 1 

53 LET E=X 
54. LET F=Y 

55 LET M=X 

56 LET N=Y 

57 IF 1=3 THEN IF 0=3 THEN GOT 
O 59 

58 IF E + I> =1 THEN IF E+I<=8 TH 
EN IF F+U>=1 THEN IF F+J<=8 THEN 

GOTO 63 


MICROCOMPUTADORES 

AD DATA Educação e Informática S/C Ltda. 

Cursos 

Introdução à informática 
Programação em linguagem Basic 
Noções de programação estruturada 
Conceitos e recursos de equipamentos 

Preços especiais para grupos fechados 
(empresas, associações, escolas, etc.) 


AD DATA Comércio e Serviços de Informática 

Fornecimento de microcomputadores e acessórios 
(TK85& JR.SYSDATA) 


Diagnóstico para implantação de microcomputadores e sistemas 
de informação. 

Projeto e implantação de Software específicos (pacotes ou 
encomendados) 


Rua João Ra malho, 818 — Perdizes — Fone: 864-8200 
São Paulo 


59 NEXT U 

60 NEXT I 

BI IF P=1 OR 0=1 THEN RETURN 

62 GOTO 19 

63 IF fl$(E+I,F+J)<>B$ THEN GOT 
O 59 

64. LET E =E +1 

65 LET F=F+<J 

66 IF E > =1 THEN IF E<=3 THEN I 
F F > =1 THEN IF F<=8 THEN GOTO 68 

67 GOTO 59 

68 LET D$=R$CE,F) 

69 IF D$<>B$ THEN GOTO 71 

70 GOTO 64. 

TI IF D$=“+“ THEN GOTO 59 

72 LET fi$(X,Y)=G$ 

73 LET M=M+I 
74. LET N=N+«J 

75 LET T$=R$(H.N) 

76 IF R$(M,N)=B$ THEN 
..N) =G$ 

77 IF T$=B$ THEN GOTO 72 
LET G = 1 
GOTO 59 

PRINT RT 3,17; "0 1 2 3 4-5 


LET R$(M 


78 

79 

80 
6 7“ 

81 

82 

83 

84. 

85 

86 

87 

+ 1 

88 

+ 1 

89 

90 

91 


LET Y =0 

LET C =0 

FOR «J = 1 TO 8 

PRINT RT J*2+3.15; J-l; 

FOR 1=1 TO 8 

PRINT - R$(I.d); 

IF R$(I,Ü) = % ‘0* 4 THEN LET 


Y=Y 


IF R$tI,J) = “I 


THEN LET C=C 


0,0,;;SCORE: UQCE = 
OR C=0 OR Y -fC =64- THE 


NEXT I 
NEXT O 
PRINT RT 
Y, M COMP. = 

92 IF Y=0 
N GOTO 123 

93 IF P=0 THEN PRUSE 303 
POKE 164.37,255 
IF P=0 THEN RETURN 
GOTO 6 

FOR U = 1 TG 8 
FOR 1=1 TO 8 
LET R$ (I,J) = “+“ 

NEXT I 
NEXT U 

LET R$C4.,4.)=“ 

LET R$ C5.5) = “j_ 

LET 14- . 5) = **0 

LET R$(5,4-) = **0“ 

LET C$(l)="88118118“ 
LET C$ (2) = **66366333" 
LET C$ (3) = “3465564.3” 
LET Cfi (4.) =“4-6355364.*' 
LET C$(5)=“31415161“ 
LET C$(6)=“13141516“ 
LET Ca 17) ="8384.8586“ 
LET Ca ( 8 ) = “ 384-85868“ 
LET Ca t 9 ) =“324.25262“ 
LET Ca ( 10) =“374.75767 
LET C$(ll) 

LET- 

LET 


94. 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104. 

105 

106 

107 

108 

109 

110 
111 
112 
113 
114- 

115 

116 

117 

118 

119 

120 
121 
122 
123 


= “2324-2526* 
Ca t 12) =“7374-7576* 
C$(13)=“22777227* 
=“12217182* 
=“17287887* 
=“99999999* 


LET C$(14.) 

LET C$(15) 

LET C$(16) 

GOTO 8© 

PRINT RT 21.0; 
NOURMENTE 7 tS,'N) * 

124- PRUSE 10000 

125 POKE 164-37,255 

126 CLS 

127 IF INKEY$=“S“ THEN 

128 ST OP 

129 SRUE “OTELLgj** 

130 GOTO 2 


DESEdR JOGRR 


GOTO 1 
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DICAS 


r 



O MAPA 
DARAM 
DO TK 


Pierluigi Piazzi 


Esta matéria originou-se de uma carta enviada pelo 
assinante Roberto R.Malcher (veja seção DESGRILAN- 
DO na pág. 4 ). Ao invés de respondermos rapidamen¬ 
te para eliminar uma dúvida particular do leitor, resolve¬ 
mos explorar o assunto de maneira mais completa. 

A memória do TK está organizada como uma pilha de 
bytes, cada um correspondendo a um número cujo valor 
está entre 0 e 255. Cada posição da memória tem um 
endereço que vai de 0 até um valor que depende da 
RAM disponível no computador. Lembrando que 
1 Kbyte corresponde a 1024 bytes (2“) e que a ROM 
do TK82 ocupa 8 kbytes, a RAM deveria começar no 
endereço 8192. 

Por certas particularidades do projeto original os en¬ 
dereços de 8192 a 16383 não são acessados pelo sistema 
operacional, mas estão reservados para futuras expan¬ 
sões da ROM (o que já ocorreu, aliás, no TK85). Isto 
significa que o primeiro endereço da RAM será 
8K+8K= 16x1024= 16384. 

Do endereço 16384 ao endereço 16508 estão armaze¬ 
nados os valores das variáveis do sistema operacional do 
TK. Estes 125 bytes são um pedacinho da RAM que a 
ROM usa para fazer o computador funcionar. A partir 
do endereço 16509 fica armazenado o programa. Até 
que endereço? Ora este valor é variável, pois o programa 
que foi inserido na RAM pode ter vários comprimentos. 
Uma das variáveis armazenadas nos 125 bytes iniciais é 
justamente a que indica o endereço do byte seguinte 
àquele em que termina o programa. 

Lendo estas variáveis, podemos determinar as frontei¬ 
ras entre uma região de memória e outra. 

0 fim da memória, por exemplo, é dado por uma va¬ 
riável batizada RAMTOP contida nos bytes de endereços 
16388e16389. 

Num computador com 2K de RAM o fim da memória 
está no endereço 18432, ou seja, 16384 + 2K. 

A variável RAMTOP, então, vale 18432. Como em da¬ 
da byte cabe, no máximo, um número até 255 usa-se a 
seguinte convenção: o valor armazenado no segundo 
byte (no caso 16389) é 256 vezes o número nele con¬ 
tido. 


Para armazenar, por exemplo, o número 19506 em 2 
bytes, devemos escrevê-lo assim: 

19 byte = 50 
29 byte = 76 

pois, 

50 + 256 x 76= 19506 

O valor da variável RAMTOP para 2K, ou seja 18432 
deve então ser escrito: 

19 byte = 0 
29 byte = 72 

pois, 

0 +256 x 72= 18432 
Experimente digitar no seu computador 


PRIMT PEEK 16388,PEEK 163B9 

fig. 1 

você deverá obter: 

0 72 

para 2K de RAM. Se o seu computador tiver 16K de 
RAM você obterá: 

0 128 

pois, 

0 + 256 x 128= 32768 

continua 
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Lembrando que a RAM do TK começa no endereço 
16384, digite o programa da figura 2. 


10 LET RflMTOP=PEEK 16333+256fP 
EEK 16339 

20 LET RftHD I5P =Rfl?1TOP - 163S4- 
3© PRINT "RRMTOP=";RflHTOP 
40 PRINT "RPM DISPONIUEL = “; RRM 
DI5P/'i024; " KBYTES” 

fig. 2 


Se você tiver 2K, obterá: 


RRMTQP=18432 

RRM DISPONÍVEL=2 KBYTES 

fig. 3 


Se você tiver 16K, obterá: 


RRMTOP=32768 

RRM DISPONIUEL=IS KBYTES 

fig. 4 


Se o seu computador for um TK85 com 48K (RAM) 
ou um TK82 com expansão para 64K (ROM + RAM) 
você deverá obter: 


RRMTOP =65535 

RPM PISPONIUEL=A?.999023 KBYTES 
____ fig. 5 

Se você não obtiver este valor, leia a resposta à carta 
do Roberto na pág. 4 . Vejamos agora como está orga¬ 
nizada a RAM, desde o endereço 16384 até a RAMTOP: 



16384 

16509 

PEEK 16396 + 256 * PEEK 16397 

PEEK 16400 + 256 * PEEK 16401 

PEEK 16404 + 256 * PEEK 16405 

PEEK 16410 + 256 * PEEK 16411 

PEEK 16412 + 256 * PEEK 16413 

NAO ACESSÍVEL EM BASIC 

PEEK 16386 + 256 * PEEK 16387 

PEEK 16388 + 256 * PEEK 16389 
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Estudando este mapa da RAM, vemos que temos vá¬ 
rias maneiras de medir o comprimento de um programa, 
ou a memória necessária para rodá-lo. Vamos então 
acrescentar algumas linhas ao programa da figura 2 para 
ampliá-lo até o indicado na fig. 7: 


10 LET RhMTOP=PEEK Í63S3+256*P 
EEK. 16389 

20 LET RflHDISP =RftMT DP -16384- 
30 PRINT "RhMTOP = " ; RRMTOP 
4-0 PRINT "RAM DISPONÍVEL 
NDISP /1024 J " KBYTES" 

50 LET DFILE =PEEK 16396+256*PE 
EK 16397 

60 LET PROGRRMfl=DFILE-1Õ539 
70 PRINT "PROGRAMA =";PROGRRMfi 
* *' BYTES" 

80 LET VflRS=PEEK 164-00+256 *PEE 
K 16401 

90 LET TELfl=URRS-DFILE 
100 PRINT "TELfl =";TELR;" BYTES 
fig. 7 


Ao rodar este programa você obterá o indicado na fig. 
8, se sua máquina tiver 1 ou 2K e o indicado na fig. 9 
se tiver mais que 3,5K de RAM. 


RRHTOP =184-32 

ROM DISPONÍVEL =2 KBYTES 
PROGRRMfi =366 BYTES 

TELfl =81 BYTES 

fig. 8 


RAMTOP =32763 

RAM DISPONÍVEL =16 KBYTES 
PROGRRMfi =366 BYTES 

TELfl =793 BYTES 

fig. 9 


Isto ocorre porque o sistema do TK tenta economizar 
o máximo de RAM quando esta é pouca (menor que 
3,5K). O truque usado consiste em armazenar no arqui¬ 
vo da tela apenas o que está impresso, não consumindo 
memória com espaços vazios (fig. 10). 

Isto gera um cuidado, ao medir um programa elabora¬ 
do para um computador com 2K ou 1 K, fazer isto com 
a expansão desconectada. 

Finalizando, vamos resumir como medir a memória 
utilizada: 

1) MEMÓRIA OCUPADA SO PELO PROGRAMA: 

PRINT PEEK 16396 + 256 * PEEK 16397 - 16509 

2) MEMÓRIA OCUPADA PELO PRCfGRAMA, VARIÁ¬ 
VEIS, TELA E VARIÁVEIS DO SISTEMA: 

PRINT PEEK 16404 + 256 * PEEK 16405 - 16384 

3) MEMÓRIA AINDA DISPONÍVEL (incluindo a pilha 
para o microprocessador): 

PRINT (PEEK 16386 + 256 * PEEK 16387) 
- (PEEK 16412 + 256 * PEEK 16413) + 87 

Note que somamos 87 bytes, correspondentes ao 
comprimento do próprio comando direto. 

O 


TELA 




ARQUIVO 


COMOxxxxxxxxxxxxxxxxxxxx 

ECONOMIZARxxxxxxxxxxxxx 

MEMÓRIAxxxxxxxxxxxxxxxx) 

xxxxxxxxxxxxxxxxxxxxxxxxx: 

xxxxxxxxxxxxxxxxxxxxxxxxx; 

xxxxxxxxxxxxxxxxxxxxxxxxx: 



ARQUIVO 


COMO|_ 

ECONOMIZAR 
MEMÓRIA 





* 

«- 


J 



fig. 10 


24 MICROHOBBY 









































Apresentando os Apple 

A Microhobby é a revista dos usuários do TK # um ex¬ 
celente computador para nos iniciarmos e explorarmos 
o mundo da computação. Entretanto você pode estar 
pretendendo comprar um computador mais sofisticado, 
ou que você, senhor Executivo, tenha em sua firma tal 
computador. Por isso estamos abrindo uma nova seção, 
que vai tratar do mais popular, e um dos mais sofistica¬ 
dos, computadores dos Estados Unidos, o Apple, do 
qual já existem diversos similares no Brasil. 

São muitas as diferenças entre o TK e o Apple, vamos 
aqui, procurar explicar algumas. Ao longo das publica¬ 
ções iremos 'destrinchando' o Apple. 

No* campo do Hardware são essas as maiores diferen¬ 
ças entre os dois computadores: 



TK 

Apple 

Memória 

2K - 64K 

16K — 64K 

Processador 

Z80, 2.56 MHz 

6502, 1.023 MHz 

Teta 

controlado pelo 
processador 

controlada por 

circuitos 

especializados 

Gráficos 

baixa resolução 
preto e branco 

baixa e alta 
resolução, coloridos 

Caracteres 

alfanuméricos e 
gráficos 

alfanuméricos 


Embora o máximo de memória RAM do Apple seja 
'normalmente' 64K, existem circuitos especiais para ex- 
pandí-la ainda mais. 

Para quem não sabe, o símbolo MHz quer dizer mi¬ 
lhões de ciclos por segundo, e indica a velocidade com 
que 'anda' o processador. Uma instrução tipo 'soma' do 
6502 pode ser feita em dois ciclos, isto é, o 6502, pro¬ 
cessador do Apple pode realizar até 500,000 somas por 
segundo. A mais longa instrução do 6502 leva 7 ciclos. 

Como você já deve ter percebido, então, o 6502 corre 
mais devagar do que o Z80, e, além disso, tem menos re¬ 
cursos; mesmo assim, o Apple é mais rápido que o TK, 
pela seguintes razões: se você já abriu o TK, você já viu 
que ele tem poucos Cl's, portanto o Z80 tem que fazer 
quase tudo, inclusive controlar o video (porque no mo¬ 
do FAST não tem video?), já no Apple existem cerca de 


100 circuitos integrados para ajudar o 6502, e portanto 
o microprocessador só tem que se preocupar quase que 
exclusivamente em executar o programa; além disso, o 
BASIC do Apple é mais sofisticado, e roda de uma ma¬ 
neira mais eficiente. 

Infelizmente o Apple não traz todos aqueles caracte¬ 
res gráficos que o TK tem, tanto em alta como em baixa 
resolução, ele só 'plota' um quadradinho, mas as cores 
e a alta resolução compensam em muito a falta de carac¬ 
teres gráficos. 

Existem outras importantes diferenças entre o TK e o 
Apple estão no campo do 'Software', ou programas. 

O BASIC do Apple se chama Applesoft, e embora to¬ 
da a lógica do programa e 90% dos comandos sejam 
idênticos, existem as seguintes diferenças: 

1) Enquanto no TK basta digitar uma tecla para apa¬ 
recer o comando, no Apple é preciso digitar o comando 
letra por letra. 

2) O comando LET não é obrigatório, ou seja, é váli¬ 
do apenas digitar: 

II A = 5 

3) Podemos colocar mais de um comando numa mes¬ 
ma linha, bastando separá-los com 

15 A = 5:B = 15: PRINT A ♦ B 

OBS.: Cuidado se for juntar comandos IF . . . THEN, 
é melhor não fazé-lo. 

4) No Apple o comando NEW apaga toda a memória 
(de programa e de variáveis), CLEAR apaga as variáveis 
e HOME apaga a tela. Isto é, HOME corresponde aos 
CLS no TK. 

5) Não existe o comando EDIT no Apple, para modi¬ 
ficar uma linha de programa usamos o modo ESC. 

6) Embora também existem os comandos PEEK e 
POKE no Apple, e eles executem a mesma ação que no 
TK, os efeitos não são os mesmos no Apple, pois como 
você talvez já saiba, os efeitos dos PEEK's e POKE's de¬ 
pendem muito do Hardware de cada computador e co¬ 
mo já foi mostrado, os dois são bem diferentes neste 
ponto. 

7) O Applesoft não verifica linhas de programa quan¬ 
do de sua entrada, portanto os erros de sintaxe só são 
detectados quando rodamos o programa. Uma lingua¬ 
gem alternativa para o Apple, é que geralmente vem com 
a unidade de disco é o Integer BASIC, que verifica a sin¬ 
taxe de cada linha na sua entrada, como o TK, mas, em 
compensação não trabalha com números reais, apenas 
inteiros, como o nome já diz. 

continua 
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8) No Applesoft não há necessidade de se dimensio¬ 
nar uma variável 'string' antes de guardar caracteres nela. 
Por exemplo, enquanto, que no TK fariamos: 

X DIM fi*(26) 

2 LET RSs-flBCDEFGHIvJKLMNOPQRS 
TUUWXYZ" 

No Apple basta fazer: v 

1 A«=•ABCDEF6HIJKLHHOPORSTUVW X YZ' 

Podemos no Apple também fazer matrizes 'string', 
e nesse caso, cada elemento da matriz pode assumir um 
'string' inteiro. 

Exemplo: 1 DM At(ll,lf) 

2 A$(1,2) : *HEU NOHE* 

3 A$(1,3)='E’ APPLE* 

4 A«(4,5)=*SEU NOHE* 

5 A»I8,9)=*E’ JOAO* 

TATUZÂO 


Esse pequeno jogo tem como finalidade, além de en¬ 
treter, introduzir o leitor 'as possibilidades gráficas do 
APPLE II, e ensinar algumas técnicas para facilitar o de¬ 
senho e sua movimentação. 

Nesse jogo o computador esconde um 'tatu' em algum 
lugar de um terreno quadriculado de 100 por 100, e o 
jogador deve tentar adivinhar a posição do 'tatu' até en¬ 
contrá-lo. 

Após cada tentativa o computador informa ao joga¬ 
dor que direção seguir para encontrar o tatu, quando o 
tatu é encontrado, ele é desenhado na tela, e aparece o 
número de chutes que o jogador usou para achar o tatu. 
O computador então pergunta se quer jogar de novo. 

Para se achar o 'tatu' nesse jogo é preciso conhecer 
duas coisas: os pontos cardeais e colaterais, e sistema de 
coordenadas x, y. 

E assim que o campo quadriculado está organizado 
nesse jogo: 



O centro do quadriculado é o 50,50. Você deve ir 
chutando as coordenadas de acordo com as indicações 
do computador. Só na primeira vez é que não há indica¬ 
ção nenhuma. Lembre-se que devemos sempre entrar o 
X antes do V (é só lembrar da velha aula da geometria). 

Obviamente esse programa não oferece a animação de 
um 'defender' ou 'commander', mas em compensação 
pode ser facilmente entendido (acompanhe os 
REMARKS). 

A princípio da técnica para se poder desenhar e mo¬ 
ver facilmente uma figura é a seguinte: 

Guardamos os dados necessários para o desenho da fi¬ 
gura numa matriz (linha 100). Todos esses dados são re¬ 
lativos a uma posição, no caso o centro da figura. Após 
determinarmos o ponto onde queremos que fique o cen¬ 
tro da figura (variáveis XP e YP) executamos a subrotina 
540 (ou 580, se for para desenhar o 'tatu'). Essa subro¬ 
tina lê os dados da matriz respectiva, e desenha. Na ver¬ 
dade cada dado para desenho consiste de quatro núme¬ 
ros, pois como você já deve ter notado essa matriz exe¬ 
cuta um HPLOT de um ponto a outro. A técnica de exe¬ 
cutar HPLOT's de um ponto a outro é bem mais rápida 
e exige bem menos dados nos comandos DATA do gra¬ 
var cada ponto do desenho na matriz. Para se apagar 
uma figura, simplesmente a redesenhamos na mesma po¬ 
sição, só que em preto. 

Essa técnica é bem geral e se aplica a muitos compu¬ 
tadores, só que no caso de não ser possível o recurso de 
desenhar uma linha de um ponto a outro, deve-se guar¬ 
dar todos os pontos do desenho (relativos a algum refe¬ 
rencial), e trocar a linha 540 para: 

54» FOR I = 1 TO TH STEP 2: 

HPLOT XP ♦ PHKI + 1),YP ♦ PHKI): 

HEIT I: 

RETURN 

O uso de matrizes inteiras se justifica por essas usarem 
bem menos memória do que usariam matrizes de ponto 
flutuante. 

Nas próximas publicações veremos métodos especiais 
do APPLE para desenhar e fazer animações de figuras, 
tão rápidos como os jogos de fliperama que você conhe¬ 
ce. Aguarde. . . 


••• •••••• 

••• •••••• 
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0 REH Itl TATUZAO tít 

SI983 POR DENTRO DO APPLE 

10 REH DIMENSIONAR AS MATRIZES 

20 REH PTX --> PONTOS DO TATO 

30 REH PHI --> PONTOS DO HOMEM 

40 REM A$ --> DIREÇÕES 
50 DIM PTK200),PHK200> 

60 REH LER MATRIZES DE PONTOS 
70 REH DO HOMEM E DO TATU 
80 REM TT --> TAMANHO DO TATU 

90 REM TH --> TAMANHO DO HOMEM 

100 READ TT,TH: FOR I = 1 TO TT: 
READ PTKI): NEXT I: FOR I * 

1 TO TH: READ PHX(I): NEIT I 
: FOR I = 1 TO 8: READ A«<I) 

: NEXT I 

110 REH 6ERAR AS COORDENADAS X,Y 

120 REM DA POSICAO DO TATU 
130 REH E INIC1ALIZAR CONTADOR 
140 TEXT : HOME : H6R :XT = INT 
( RND (1) t 100>:YT = INT ( 

RND (11 t 100)sK = 0 
150 REH POSICIONAR CURSOR E 
160 REM 6ERAR XP,YP INICIAIS 
170 REH PARA EVITAR ERRO 
180 VTAB 22:XP * 50:YP = 50 
190 REH ENTRAR NOVA POSICAO 
200 REH DO HOMEM,APAGAR A VELHA 
210 REH DESENHAR A NOVA ,E 
220 REM INCREMENTAR CONTADOR 
230 INPUT 'ENTRE X E Y (DE 0 A 9 
9) ';X,Y:K = K ♦ 1:Y = 99 - 
Y: HCOLOR= 0: 60SUB 540:XP = 

X * 2 ♦ 40:YP = Y ♦ 30: HCOLOR= 
3: 60SUB 540: IF NOT ((X = 

XT) AND (Y = YT)> 60T0 340 
240 HOME : VTAB 22: PRINT 'PARAB 
ENS VOCE ACHOU O TATU ': PRINT 
'EH •;K;" VEZES': PRINT 
250 REM DETERMINAR OS PONTOS 
260 REH PARA DESENHO RELATIVO 


270 REM DO TATU 
280 REM E DESENHAR O TATU 
290 XP * XP ♦ 15:YP = YP ♦ 15: 60SUB 
580: REH DESENHA O TATU 
300 GOTO 450 

310 REM INICIO DE COMPARACOES 
320 REH PARA DETERMINAR QUE 
330 REH DIRECAO ESTA O TATU 
340 IF (X = XT) AND (Y < YT) THEN 
3*4: 60T0 440 

350 IF (X = XT) AND (Y > YT) THEN 
J * 1: 60T0 440 

360 IF (X < XT) AND (Y = YT) THEN 
J * 7: 60T0 440 

370 IF (X > XT) AND (Y * YT) THEN 
3 = 8: 60T0 440 

380 IF (X > XT) AND (Y > YT) THEN 
3 * 3: 60T0 440 

390 IF (X ) XT) AND (Y < YT) THEN 
3 = 6: GOTO 440 

400 IF (X < XT) AND (Y < YT) THEN 
3 = 5: GOTO 440 

410 IF (X < XT) AND (Y > YT) THEN 
3 * 2: GOTO 440 
420 REH IMPRESSÃO DAS 
430 REH OR1NTACOES AO 306AD0R 
440 HOME : VTAB 21: PRINT 'VOCE 
ESTA EH *;X;V;99 - Y: PRINT 
■VA PARA ';A»(31: FOR I = 1 TO 
500: NEXT : GOTO 230 
450 PRINT 'QUER 306AR DE NOVO ? 

(S/N) ';: INPUT ";R$: IF LEFTI 
(R$,1) = 'S' THEN 140 
460 TEXT : HOME : VTAB 5: PRINT 
TAB( 5)'FOI UM PRAZER*: VTAB 
10: PRINT TAB( 15)'30GAR CO 
H VOCE': VTAB 15: PRINT TAB( 

25)'APPLE II* 

470 COLOR* 10: HLIN 0,39 AT 0: VLIN 
0,47 AT 39: HLIN 0,39 AT 46: 

VLIN 0,47 AT 0 

480 REH ESPERAR POR UMA TECLA 
490 IF PEEK ( - 16384) < 128 THEN 
490 

500 POKE - 16368,0: HOME : END 


510 REH SUBROT1NA OUE DESENHA 
520 REH O HOMEM EH RELACAO 
530 REH AO PONTO XP.YP 
540 FOR I = 1 TO TH STEP 4: HPLOT 
XP ♦ PHXÜ ♦ 1),YP ♦ PHKII TO 

XP ♦ PHKI ♦ 3),YP ♦ PHXII ♦ 

2): NEIT I: RETURN 
550 REM SUBROT1NA PARA DESENHAR 
560 REM O TATU EH RELACAO 
570 REH AO PONTO XP.YP 
580 FOR I = 1 TO TT STEP 4: HPLOT 
XP ♦ PTKI ♦ 1),YP ♦ PTX(I) TO 

XP ♦ PTKI ♦ 3),YP ♦ PTKI ♦ 

2): NEXT I: RETURN 
590 DATA 48,132: REH NUMEROS 
DE DADOS PARA DESENHAR TATU 
E HOMEM 

600 REM BLOCO DE DADOS PARA 
610 REM DESENHO DO TATU 
620 DATA -4,-2,-4,2,-3,-3,-3,3, 
*2,-4,-2,4,-1,-8,-1,5,-3,-6, 
-2,-6,0,-10,0,6,1,-11,1,7,2, 
-6,2,8,3,-4,3,-3,3,3,3,4,4,- 
5,4,-4,4,2,4,3 

630 REM BLOCO DE DADOS PARA 
640 REM DESENHO DO HOMEM 
650 DATA -15,-3,-15,2,-14,-4, 
-14,3,-13,-5,-13,4,-12,-4,-1 
2,3,-11,-3,-11,2,-10,-3,-10, 

2»”9,-1,-9,0,-8,-1,-8,0,-7,- 
3 ,- 6 ,- 6 ,- 6,5 

660 DATA -5,-7,3,-7,-5,-6,3,-6, 
-5,5,8,18,-5,6,1,12,-5,-4,-5 
,3,-4,-4,-4,3,-3,-4,-3,3,-2, 
-4,-2,3,-1,-4,-1,3,0,-4,0,3, 
1,-4,1,3,2,-4,2,3,3,-4,3,3,4 
,-4,4,3 

670 DATA 5,-4,12,-4,5,-3,12,-3, 

5»‘2,12,-2,5,1,12,1,5,2,12,2 
,5,3,12,3,10,15,8,17,9,17,7, 
19,6,19,5,20 

680 REH DIREÇÕES A SEGUIR 
690 DATA NORTE,NORDESTE,NOROEST 
E,SUL,SUDESTE,SUDOESTE,LESTE 
,OESTE 


CALENDÁRIO PERPÉTUO 


Quantas vezes acontece de precisarmos de um calen¬ 
dário antigo, de alguns anos ou mesmo meses atrás e, 
por um motivo qualquer, não encontrarmos nenhum 
por perto? Quem nunca perguntou a si mesmo algo co¬ 


mo "Em que dia da semana vai cair o Natal no ano 
que vem?" O programa que apresentamos este mês pre¬ 
tende auxiliar os leitores que já tiveram uma dúvida co¬ 
mo essa, permitindo-lhes ver, na tela do seu compu¬ 
tador, o calendário completo de qualquer mês e ano, e 
também servir de base para quem quiser aplicar algumas 
das técnicas básicas usadas no programa. 

continua 
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8 REH tt CALENDÁRIO PERPETUO tt 


31983 POR DENTRO DO APPLE 


18 HOHE : VTAB 5: HTAB 18: PRINT 
•CALENDÁRIO PERPETUO' 

28 INVERSE : VTAB 23: PRINT TABI 
7);“DI6ITE ’8,8’ PARA TERNIN 
AR'; TABI 41);: NORNAL 
38 VTAB 12: HTAB 1: PRINT 'DISIT 
E O NES E O ANO, SEPARADOS P 
OR UHA*: VTAB 14: INPUT 'VIR 
6ULA (EXEHPLO: 6,1945): 1 
;HES,ANO: IF NES = 8 AND ANO 
= 8 THEN HOHE : END 
48 RESTORE : FOR I = 1 TO HES: READ 
HES»,NDIAS: NEXT I:HESt = HE 
S* ♦ ' * + STR» (ANO) 


58 REH ANO BISSEXTO? 

68 IF HES = 2 AND INT (ANO / 4) 

= ANO / 4 THEN NDIAS = 29 
78 REH CALCULAR EH OUE DIA CAI 
O PRIHEIRO DO HES. 
8-D0HIN68, 1-SE6UNDA... 

88 IF HES < 3 THEN HES = HES + I 
2:ANO = ANO - I 

98 N = 1 + 2 t HES ♦ INT (.6 I ( 
HES ♦ D) ♦ ANO ♦ INT (ANO / 

4) - INT (ANO / 188) ♦ INT 
(ANO / 488) * 2:N = INT MN 
/ 7 - INT (N / 7)) » 7 + . 

5) : IF N = 0 THEN N = 7 
188 N = N - 1 

118 REH HOSTRAR CALENDÁRIO 
128 HOHE : COLOR? 18: HLIN 8,39 AT 
8 : VLIN 8,47 AT 39: HLIN 8,3 
9 AT 46: VLIN 8,47 AT 8 


138 VTAB 4: HTAB 28 - LEN (HES» 

) / 2: PRINT HESt: VTAB 8: HTAB 
8: PRINT *D S T Q 0 
S S': PRINT 
140 DIA = 1 

158 HTAB 4 I N ♦ 8: PRINT DIA; 

168 DIA = DIA ♦ 1: IF DIA > NDIAS 
THEN 288 

178 N = N ♦ 1: IF N > 6 THEN PRINT 
: PRINT :N « 8 
180 60T0 150 

190 REH ESPERAR POR UHA TECLA 
200 IF PEEK ( - 16384) < 128 THEN 

200 

210 POKE - 16368,0: 60T0 10 
228 REH DADOS DO PR06RAHA 
230 DATA JANEIRO,31,FEVEREIRO,2 
8,HARCO,31,ABRIL,30,HAIO,31, 
JUNHO,38,JULHO,31,AGOSTO,31, 
SETEHBRO,30,OUTUBRO,31,NOVEH 
BRO,30,DEZEHBRO,31 


O programa começa pedindo o mês e o ano e pro¬ 
curando, através do "loop" da linha 40, o nome do mês 
e o número de dias neste. No caso de se tratar do mês de 
fevereiro de um ano bissexto (divisível por quatro), o 
número de dias é corrigido para 29. A rotina definida 
pelas linhas 80 a 100 fazem o cálculo do dia da semana 
em que começa o mês em questão. 



FfTi] 


pina 


Software 
pronto para ser usado. 

Programas de uso pessoal ou estritamenie profissional; 

Cadastros, Banco de Dados, Locações, Contabilidade, Contas a Pagar 
e Receber, Editor de Texto, Conta Bancária, Mala Direta, Visicalc, 
Controle de Estoque 

E para o programador; Editor Assembler, Compiladores Basic e Cobol... 
... e jogos, que ninguém é de ferro. 

Todos em português, gravados em cassettç ou diskette, com manual do 
usuáno, extremamente práticos. 

Estamos ao seu alcance. 

Confira. Solicitando por telefone ou no revendedor de sua cidade, relação 
de programas disponíveis. 

monk micro informática Itda. 

R. Augusta. 2690 2 ? andar Loja 318 
Tel. (011) 852 2958 cep 01412 SP 


monk, ^ 

o software que faz você ficar 
feliz por ter um micro. 


A linha 120 mostra uma maneira interessante (e rápi¬ 
da) para colocar na tela caracteres repetidos. Podemos 
obter efeitos diferentes usando outras cores, "plotando" 
em linhas pares ou ímpares ou na vertical, ou usando 
combinações de linhas adjacentes. Mais adiante, o com¬ 
putador entra num ciclo para colocar na tela os núme¬ 
ros nos seus lugares corretos. Terminando o programa, 
temos uma sequencia de duas linhas (200 e 210) que 
prendem o computador num loop até que o operador 
pressione qualquer tecla. 

Finalmente, uma dica para quem quiser usar a fór¬ 
mula da linha 90 em seus programas, para calcular o dia 
da semana de um dia qualquer: substitua o "1" no iní¬ 
cio da fórmula pela variável "DIA" (N = DIA + 2 * 
MÊS. . .). Não se esqueça de incluir a linha 80, que efe¬ 
tua um ajuste nas variáveis MÊS e ANO para os meses 
de janeiro e fevereiro. 

TWO LINERS 

Um dos nossos amigos mais próximos é o Tio Fred 
List. É um velhinho simpático e um apaixonado hobis- 
ta em computação. Entretanto, o Apple do nosso que¬ 
rido tio apresenta somente 0.6K bytes de memória de 
programação e necessita de alguns programas para ele. 
Eis aqui um desafio. . . Vamos ajudá-lo. 

No BASIC usado no Apple (Applesoft ou Integer) é 
permitida uma instrução de múltiplos comandos, des¬ 
de que eles venham separados por dois pontos; e as¬ 
sim, as instruções: 

10 HOHE 

20 PRINT MSTO E’ UH TESTE 1 
30 PRINT 

40 FOR I = 1 TO 10 
50 PRINT I; 1 B $ 

60 NEXT I 
70 PRINT -FIH- 
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podem ser escritas em uma única linha: 

10 HOHE : PRINT "ISTO E* UH TESTE": 

PRINT : FOR I = 1 TO 10: PRINT I; 

* NEXT I: PRINT "FIM": END 

Entretanto, uma linha só aceita até 255 caracteres. . . 
cuidado.! 

Para o desafio dos TWO-LINERS vamos estabelecer 
algumas regras: 

todos os programas devem ser escritos em Applesoft 
ou Integer BASIC e não devem ter mais que duas linhas 
de programação; 

não há limites para o número de múltiplos comandos 
ou comprimento de cada linha, desde que, evidentemen¬ 
te, a linha possa ser digitada diretamente pelo teclado. 

Favor enviar, para a apreciação do nosso staff, uma 
cópia legível do seu TWO-LINER. Essa cópia, que não 
será devolvida, poderá ser usada pelo departamento co¬ 
mo e quando o julgarmos necessário. 

Os programas serão julgados com os seguintes crité¬ 
rios: 

a) impacto que o programa apresenta ao rodá-lo. 

As decisões do staff do POR DENTRO DO APPLE 
são semi-finais. Tio Fred List tem a última palavra. 

PRÊMIOS: 

19 colocado: um livro sobre apples. 

29 colocado: uma foto do Corinthians 

39 ao 99 colocados: ainda não decidimos 

109 colocado: uma foto do Tio Fred List 

Eis aqui dois exemplos feitos por Mark Bachman e 
Christopher Volpe: 


. 


•jcroco^P 0 . 

SIC.l- 10 *' 


iniciação ao Basic para jovens de 10 a 14 anos 
— duração 20 horas aula. 

Introdução a linguagem Basic duração 20 horas 
aula. 

DOS 500 (DISC OPERATION SYSTEM) 

Duração 30 horas aula. 

Oferecemos também, curso de Introdução a 
Linguagem Basic por correspondência. 

Turmas limitadas de 6 alunos, com atendimento 
individualizado, na qual o aluno aprende utilizan¬ 
do um microcomputador. 

Além dos cursos, a C.P. Systems oferece vários 
programas de jogos e aplicativos, para microcom¬ 
putadores como D-8000, TK82-C, CP500 e simi¬ 
lares. 

Nossos preços são bem convidativos. 

C.P. SYSTEMS S/C. LTDA. 

Av. Paulista, 2.073 - conj. 1.212 — Ed. Horsa I 
CEP.: 01311 - Fone: 255-5454 
São Paulo — SP 


1 



1 H4 = *303:AO 52 C0 AD 51 C0 A9 

22 EA EA EA EA 20 A6 FC AD 5 
0 C0 A9 47 3E 99 99 3E 99 99 
3E 00 00 3E 00 00 3E 00 00 
3E 00 00 3E 00 00 3E 00 00 3 
E 00 00 3E 00 00 20 A8 FC 4C 
06 03 N 3036 a 

2 FOR 1 = 1 TO 30: PRINT 'PAGINA 

UN DE TEXTO *;: NEXT : FOR 
C = I TO LEN (HO: POKE 511 
♦ C, ASC ( HID» (H$,C,D) + 
128: NEXT : CALL - 144 


Já vimos os exemplos, portanto, mãos à obra e 
enviem os seus programas para: 


MICROHOBBY 

Seção: Por Dentro do Apple 

CX. POSTAL 60081 

STAFF: 


José Eduardo Moreira 
Daniel R. Falconer 
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FUNÇÕES I 


A fita FUNÇÕES I é comercializada pela MICRON de 
São José dos Campos (av. São João, 74) e tem como 
principal finalidade a de ampliar o sistema operacional 
do TK com algumas funções adicionais extremamente 
úteis. Vem acompanhada de um manual que, se peca um 
pouco pelo aspecto gráfico, compensa isso amplamente 
pela boa didática empregada nas instruções. 

Ao ser carregado normal mente o programa já sai ro¬ 
dando apresentando o menu da fig. 1. 


ÍTICROTC EffcTPC-HICP 


FUNCOES EXTRAS 


INCLUA NO PROGRAMA, 

LET L=USR 354.65 
£ ELE SERA APAGADO DESTA 
LINHA ATEM O FINAL 


INCLUA Nd PROGRAMA; 

1 REM ** 

2 LET L=USR 35000 

3 LIST 

IMPORTANTE: LINHA 1 REM CONTEM 
2 ESPAÇOS, 1 GRAFICO, 1 ESPAÇO. 
USE_POKE 16516,1 OU 5 OU 10. 


proibi; 


REPPODUrIR 


digite: ne:u 


*'9- i y 


Após ler as instruções, o usuário deve digitar NEW: 
o programa se auto-carrega no último Kbyte dos 16K de 
RAM. 

Para testar a fita carregamos no computador o pro¬ 
grama MINI-INVASOR com o programa RENUME- 
RANDO "enganchado" no fim (publicados, ambos, no 
número 1 da MICROHOBBY). 

A primeira tarefa da fita FUNÇÕES foi a de eliminar 
o programa RENUMERANDO do fim do MINI- 
INVASOR. 

Como o programa MINI-INVASOR termina na linha 
1135 e o RENUMERANDO começa na linha 9959, bas¬ 
ta então acrescentar a linha 


1136 LET L=USR 32465 

e a seguir 

GOTO 1136 


Em poucos segundos o RENUMERANDO em BASIC 
desaparece, deixando apenas o programa MINI-IN¬ 
VASOR. 

A seguir testamos o RENUMERANDO da própria 
fita (em ASSEMBLY). Para isso devemos acrescentar 

1 REM 

2 LET L-USR 3200© 

3 LIST 

A linha 1 REM deve contar 4 espaços em branco. 

A seguir devemos comandar 

POKE 16516 j N 

onde N é o incremento que queremos dar aos endereços 
da nova renumeração até 20 no máximo). Como o MINI- 
INVASOR estava renumerado de 5 em 5, alteramos para 
que o fosse de 20 em 20. 

POKE 16516.. 20 

Rodamos o programinha (com RUN), obtemos a re¬ 
numeração desejada num tempo incrivelmente curto! 
Isso ocorre porque, ao contrário do programa RENU¬ 
MERANDO em BASIC que publicamos no número 1, 
este é em linguagem de máquina. Finalmente, para saber 
quantos bytes foram consumidos pelo programa basta 
digitar 

PRINT USR 3244© 

Esta rotina pode ser alterada fazendo-se 

POKE 32444., P 
onde A deve assumir os seguintes valores: 

A = 20: consumo de programa, video e 

variáveis 

A = 28: idem acima mais pilha de calculador 

A = 12: só o programa (volta ao original) 

Em resumo, esta fita contém uma típica rotina "fer¬ 
ramenta" extremamente útil para programadores. Sua 
utilidade ficou evidenciada quando percebemos que ela 
entrou no dia-a-dia dos nossos analistas de SOFTWARE 
aqui na redação. n 
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Nós da MICROMEGA PUBLICAÇÕES E MATE¬ 
RIAL DIDÁTICO LTDA., editora da revista MICRO- 
HOBBY convidamos todos nossos leitores e assinantes 
a visitar nosso espaço na III Feira da Informática a se 
realizar de 17 a 23 de outubro, no Parque Anhembi, 
em São Paulo. 

Na ocasião será distribuída uma tabela-brinde espe¬ 
cial aos novos assinantes. Os assinantes antigos também 
poderão retirar este brinde, entregando, na feira, a eti¬ 
queta de endereçamento colada no envelope deste nú¬ 
mero 4. 

Além disso, no nosso stand vamos apresentar uma 
série de novidades para o TK: a nossa finalidade é a de 
incentivar pequenas empresas a produzir periféricos e 
acessórios para o TK, ampliando cada vez mais sua uti¬ 
lidade e desempenho. Vamos ter também sorteios inte¬ 
ressantíssimos, demonstrações de novos equipamentos 
e lançamento de livros para o TK. O 

A Memphis, empresa paulistana, líder no mercado 
de suprimentos para computadores, vem se projetando 
e se firmando há 14 anos em todo o Território Nacional. 

Com a finalidade de manter o seu maior lema "Produ¬ 
tos de Qualidade a Preços Justos", e para melhor aten¬ 
der a sua exigente clientela e a todos os seus amigos e 
habituais fornecedores, acabou de mudar sua Matriz 
para um moderno prédio situado à Av. Angélica, 35 no 
bairro de Santa Cecília, com uma área de 4.000 m 2 , 
contando com amplo estacionamento. 

Nesse local estarão funcionando os Departamentos 
Administrativo, Financeiro, Estoques, setor Fabril e 
também o C.P.D. (que a partir de agora agilizará ainda 
mais o atendimento aos clientes). 

0 Departamento de Vendas continuará atendendo aos 
seus clientes em seus escritórios à Av. Arnolfo de Azeve¬ 
do, 108 - Pacaembú pelo telefone 262-5577 em São 
Paulo e no Rio de Janeiro à Praia do Flamengo, 66 gru¬ 
po 1.519 pelos telefones 205-3849 e 225-3469. 


"Novo ABC dos Computadores" de Allan Lytel e 
Carlos Alberto M. Marques, é o mais recente lançamento 
da editora "Antenna" (C.P. 1131 — Rio de Janeiro — 
CEP: 20001). é um livro especialmente escrito para as 

O 


pessoas que desejem ingressar no mundo da informática, 
seja com finalidades profissionais, seja para quem possua 
ou pretenda possuir um microcomputador, prestando-se 
igualmente, aos autodidatas, e, como livro auxiliar, nos 
cursos de iniciação ao Processamento de Dados. 

Compõe-se de 12 capítulos: Computadores Digitais e 
Analógicos - Números para computadores — Operações 
Aritméticas — Lógica Simbólica - Circuitos Lógicos Bá¬ 
sicos — Multivibradores — Contadores — Circuitos Cal¬ 
culadores — Circuitos Integrados — Armazenamento de 
Dados - Dispositivos de Entrada e Saída - Programa¬ 
ção. é redigido em linguagem acessível aos iniciantes, 
constando de 176 páginas, com bastante ilustrações, no 
formato 13,5x21 cm. é vendido nas boas livrarias ao 
preço de Cr$ 3.500,00 o exemplar. o 

A Computronix, uma loja de microcomputadores de 
Belo Horizonte está lançando o teclado profissional para 
o TK82-C e o NEZ 8000. Trata-se de caixa em madeira 
ou fibra de vidro que comporta o aparelho, a expansão 
e a fonte internamente, operando-se em teclado tipo 
IBM e um vídeo 12" por cima da caixa. Maiores infor¬ 
mações: fone: (031) 225-3305. q 

A MICRODIGITAL lança o TK83, versão sofisticada 
do TK82-C. Seu desempenho como computador é idên¬ 
tico, tendo as mesmas características operacionais de seu 
antecessor. Do ponto de vista estético, porém, ele apre¬ 
senta um "design" muito mais moderno e funcional. 
A nova caixa é mais resistente, tornando os circuitos in¬ 
ternos menos vulneráveis a pressões mecânicas. O "hard¬ 
ware" foi redesenhado implicando num projeto mais ele¬ 
gante e compacto. 

Com esse lançamento, a MICRODIGITAL mostra to¬ 
da a confiança que deposita na antiga máquina, dissipan¬ 
do de vez os temores de "obsolência" apresentados por 
alguns usuários quando do lançamento do TK85. 

O TK82, agora 83, veio para ficar durante muito tem¬ 
po, ainda: a relação desempenho/custo é ainda (e parece 
que será por muito tempo) a mais elevada do mercado 
nacional. 

Num mercado com muitos "cadillacs" enfeitados, um 
"fusquinha" terá sempre uma grande aceitação, especial¬ 
mente numa época de economia em contenção. 

O 
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PEQUENOS 





ANÚNCIOS 


Vendo esquema completo do microcomputador 
NEZ8000 (com SLOW e expansão de memória) — 3 có¬ 
pias heliográficas. Cheque nominal de Cr$ 6.000,00 pa¬ 
ra JAN MARTIN LUND, Rua Frederico Ozanã, 16/21 — 
11100 — Santos — SP. 

Troco ou vendo programas (nacionais e importados) 
para os micros: CP-200, TK82-C e ZX 81. Possuo o Si¬ 
mulador de Vôo, Turbo, Galaxy e muitos outros jogos 
e aplicativos. Tratar com Eduardo Medeiros — R. Eliseu 
Guilherme, 1076 - Ribeirão Preto - SP - CEP: 14100 

— Atendo também por reembolso. 

Vendo ou troco programas de jogos para TK82-C e 
TK85. Tratar com Edson, R. Guariba, 54 - São Paulo - 
Tel.: 918.0998 (c/Ruth). 

RADIO MICRO: O primeiro grupo de rádio amadores 
digitais do Brasil convida todos os radioamadores a co¬ 
nhecer os projetos de hard e soft que estamos desenvol¬ 
vendo, aos interessados entrar em contato com PY2-EMI 
Renato Strauss — R. Cardoso de Almeida, 654/32 - 
05013 — São Paulo — SP. 

Colocamos vídeo-reverso em televisores TX-Philips, 
fazemos adaptações de TV's para monitor de vídeo e 
vendemos kits de vídeo-reverso. Luiz Wellington - TeL: 
224-2776 — Fortaleza/CE. 

Vendo programas nacionais e importados, 2K e 16K, 
BASIC, e ASSEMBLER para micros TK82-Cesimilares 
(Aceito trocas) - Carlos A. Sciaretti - Cx. Postal: 5567 

- São Paulo/SP - CEP: 01051 - tel.: 522-8586. 


Curso de Linguagem de máquina para TK82 e TK85 
(ASSEMBLY Z80). Aos sábados das 9:00 às 13:00 hs. 
— São Paulo — Fone: 813-4555 (Márcia) à tarde. 

Serviço de Datilografia — IBM. Teses, apostilas e ma¬ 
nuais técnicos. Telefone: 258-8486 — Américo — SP. 

Conversor do NEZ8000 para SLOW: Em São Paulo, 
WILSON DE ASSIS faz a inclusão desta função no 
NEZ8000 por Cr$ 20.000,00 (mais as despesas de em¬ 
balagem e correio) e dá a garantia de 6 meses. Se o seu 
endereço for próximo ao dele, ele entregará em casa. 
O seu telefone é: (011) 203-7967 e o endereço: Rua 
Fabricio Correia, 145, Tucuruvi, 02311 — São Paulo - 
SP. 

Sou possuidor de muitos programas para o TK82. Os 
interessados em trocá-los escrevam para Marco Aurélio 
Dias de Oliveira — Av. A fonso Pena, 1557 - Bloco B — 
apto. 214 — Campo Grande/MS — CEP: 79100. 

Troca de programas para TK — Carlos Horàcio C. 
Fontenelle — R. Alfeu Aboim, 770 — Aldeota — Forta¬ 
leza -CE- CEP: 60000 

ESPIÃO - Jogo de Aventura para TK e CP-200. Um 
desafio a sua Memória e Habilidade. 16K com SLOW. 
Cr$ 5.000,00. Pedidos pelo reembolso para Cx. Postal: 
28 - 27200 - Pirai - RJ. 

Vendo NEZ 8000 com expansão de 16K — Tenente 
Dilson — Tel.: (061) 224-1839 — Brasília — DF. „ 
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COMO COLABORAR 
COM MICROHOBBY 


A revista MICROHOBBY foi criada para servir de in¬ 
tercâmbio entre os leitores que participam do mágico 
mundo da computação 

A característica realmente inovadora do computador 
pessoal, está em transformar cada consumidor num cria¬ 
dor. Aproveite sua criatividade e envie suas colabora¬ 
ções, recebendo remuneração a título de DIREITO 
AUTORAL. 

Se o material enviado for aprovado para publicação, 
a remuneração será de Cr$ 10.000,00 por programa. Se 
o programa for muito bom e muito extenso esta quantia 
será aumentada, a critério da redação, até Cr$ 30.000,00. 
Esta remuneração será oferecida também para artigos 
interessantes sobre o mundo do TK 

A maneira ideal de nos enviar o material a ser publi¬ 
cado obedece às seguintes normas: 



O material não utilizado não será devolvido Esta é 
uma norma corrente em quase todas as revistas do mun¬ 
do, que gera porém, uma certa desconfiança "e se apa¬ 
garem meu nome do programa e o publicarem sem me 
remunerar?" 

Neste ponto podemos sugerir o seguinte 

Ao enviar o material para qualquer revista, você, ou 
confia em sua seriedade, ou, é melhor não enviar o ma¬ 
terial, reservando-o para uma publicação digna de seu 
crédito. 

Uma outra saída é a de tirar uma cópia de todo ma¬ 
terial enviado e registrá-lo em cartório, para qualquer 
reclamação posterior Obviamente tal procedimento só é 
aconselhável se o material enviado for valioso a ponto de 
justificar toda essa mão-de-obra. 


1) Nunca esquecer de colocar nome completo, endereço 
e número de sua assinatura em todo material enviado (fi¬ 
tas, listagens de impressora, envelope, carta, etc). 

2) Enviar a listagem de programa datilografada ou, me¬ 
lhor ainda, tirada na impressora do TK 

3) Colocar sempre uma linha REM com o nome do autor 
e o título do programa. 

4) Enviar uma fita com o programa gravado algumas ve¬ 
zes (se possível em gravadores diferentes). 

5) Na fita, gravar com microfone (em viva voz), algumas 
instruções úteis, nome completo e endereço do reme¬ 
tente. 


GERAÇÃO HUMANA NO TK 

Antes que o leitor se assuste com visões tipo "Admi¬ 
rável Mundo Novo" pedimos a leitura da parte final da 
carta que o Roberto R. Malcher de Óbidos (Pará) enviou 
à Seção DESGRILANDO. 

A proposta, pelo que pudemos entender, consiste 
basicamente em se tentar estabelecer uma correlação en¬ 
tre data de nascimento da mãe, dos filhos e o sexo 
destes. 

Para quem achar absurdo, queremos lembrar que há 
alguns anos foi realizada na França uma pesquisa que 
tentava correlacionar o Q.l. de crianças com outros fato¬ 
res. Verificou-se uma correlação estatisticamente signifi¬ 
cativa entre o Q.l. e a época do nascimento: crianças 
nascidas no começo do inverno tinham um desenvolvi¬ 
mento intelectual significativamente superior. Foram le¬ 
vantadas muitas hipóteses (chegou-se até o absurdo de 
se falar em horóscopo!). A explicação na realidade é 
bem simples: no inverno europeu os pais ficam mais 
tempo em casa e essa maior convivência é tremendamen¬ 
te importante para o futuro desenvolvimento mental do 
bebê. 

Por isso pedimos a todos os leitores que tirem uma 
xerox da tabela anexa (para não recortar a revista) e a 
enviem preenchida para: 


6) O material deve ser enviado para: 

MICROMEGAP M D Ltda 
PROGRAMAS DO LEITOR 
Cx POSTAL: 60081 
CEP 05096 - S PAULO - SP 

7) Qualquer dúvida, poderá ser esclarecida pelo telefone: 

(011) 257-5767 com Roberto. 

Aguardamos sua colaboração. 
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come moedas fazendo uma lamentável confusão entre 
plano espiritual e plano material. 

Para se movimentar no salão (tenebroso) do castelo 
você deve usar as teclas 5, 6, 7 e 8 ou o módulo de co¬ 
mando (Joystick). 

Ao ter sua alma congelada pelo fantasma, aparecerá 
a quantia coletada. 


10 LET S=0 
20 C1_S 
30 XNPUT O 
4.0 LET Q = 1 
50 LET U = 1 

60 LET R = INT (RNPi7) +1 
70 LET E = INT <RND*7) +1 
80 FOR F = 1 T^l^^^^ 

lei next T f **'********* 

110 XF INKEY$="P" THEN GOTO 20 
120 PRINT RT 

130 IF PEEK (PEEK 16398+256tPEE 
K 16399)=155 THEN GOSUB 230 

14-0 LET 0=0+ < INKEY$ = "6" RND O <8 
> - ( IHKEY$ = "7" RND 0>1) 

150 LET U=U+(INKEY$="8" RND U<8 
) - ( INKEY* = "S" RND U>1) 

160 XF 0=R RND U=E THEN GOTO 26 

0 

170 XF RND <R THEN GOTO 110 
180 PRINT RT R.EjCHRf 11 
190 IF PEEK (PÊEK 16398+256+ PEE 
K 16399)=128 OR 155 THEN PRINT R 
T R.E;"Ü" 

200 LET R=R+(O>R)-(O<R) 

210 LET E=E+ íU >E) — (U<E) 

220 GOTO 110 

230 LET S=S+1 

24.0 PRINT RT Q . U ; "B" 

250 RETURN 
260 PRINT S 


O que você 
deve fazer para 
realmente 
entender de micros? 


Uma assinatura de 
MicroMundo. 


Veja só o que você 
encontra em cada 
exemplar de 
MicroMundo: 
Notícias... Dicas de 
Compra... Benchmark 
(análise e testes de 
equipamentos)... 
Lançamentos de 
Hardware e Software... 
Análise de Software- 
Fontes (programas 
para todos os tipos 
de micros)... Técnicas 
& Técnicos (macetes 
clássicos em Cobol)... 
CP/M & Cia... 
e mais, muito mais. 

Faça como quem 
entende - assine 
MicroMundo. 


mo Certificado especial cfe assinatura ^ 


SIM desejo receber 12 edições do MicroMundo (um ano) 


Nome. 


Cargo_ 


Empresa. 


Endereço . 


. Tel. 


CEP. 


.Cidade 


. Eslado 


O endereço acima é □ meu endereço particular 
(Marque com iaXi Q ent j erev0 de minha empresa 

CWB - ComputarwoHd do Brasil. Sarviçot • Publicações Ltda 

*.o «usAtc.odoGuaosto+r. 25H0O *nd CCP 20031 T.< 10211 240 8225 Tatt» 21 30838 Word BR 

S*o Paulo Rua Cacapa»* 79 Jaid.m Pauhsta CEP01408 Tal <0111 8816844 Tala» 11 3201 7 Word BR 


Envio anexo cheque nomina] a 
MicroMundo no valor de 7.200 00 


O FANTASMA 


Você está no tenebroso salão de um castelo mal- 
assombrado. Você conseguiu achar um tesouro e as moe¬ 
das estão espalhadas no chão. Antes que o fantasma do 
castelo gele sua alma pecadora, você deve catar a maior 
quantidade possível de moedas (as da moldura não 
podem ser recolhidas). 

Após digitar RUN você deve escolher o grau de difi¬ 
culdade, entre .01 (difícil) e .99 (fácil). 

0 programa roda usando menos de 1 K de RAM em 
SLOW. 

0 fantasma é um pouco gagá e, enquanto o persegue. 
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CURSO DE ASSEMBLY 


aula 3 


5101100111111 
511011110100G 
1 0)0 1111 
^00101* 
J000Ol r 
Jl1110 r 
001000' 
011103 

.leme 

llioie 

0000 1W501 10100 
0000100110010 
0000100000101 


Flavio Rossini 


0 PROGRAMA HEXAMEM: ONDE COLOCAR OS 
PROGRAMAS EM LINGUAGEM DE MAQUINA 

Um bom lugar para colocar os programas em lingua¬ 
gem de máquina é no fim da memória RAM pois, como 
já dissemos, o início da memória RAM é reservada para 
colocar as variáveis do programa interpretador, o progra¬ 
ma BASIC e suas variáveis e a tela de TV (Veja pág. 23). 
Entre as variáveis do programa interpretador está uma 
chamada RAMTOP que indica o fim da memória do 
computador, ou seja, nos registros da memória corres¬ 
pondentes à essa variável o programa interpretador colo¬ 
ca o endereço que seria do byte imediatamente após o 



IOPLAK: Placa In/Out, transforma o seu TK numa 
central de comando programado, com 8 entradas 
e saídas. Controla relês, motores, trenzinhos 
elétricos, etc. 

BIPLAK: Placa Bip, assegura teclagem correta por 
aviso sonoro. Pode ser programada para assinalar 
passagens de jogos, ações de programas e muito 
mais. 

CARAPLAK: Placa de Caracteres, produz os 
grafismos que V. quer e os introduz em qualquer 
programa. E um sucesso na microcomputação dos 
E.U.A. e da Europa. 

Escreva hoje mesmo, informando qual é a placa 
TplaKdo seu interesse, para receber informações 
mais detalhadas. Isso lhe assegura um brinde 
especial que V. receberá depois, quando fizer sua 
encomenda. 

Envie sua carta para: INFORMAÇÕES TPLAK 
A/C R.G. 

Rua João Ramalho, 1 276 
CEP 05008 São Paulo SP 


.00000011^ 
.11011001011 
51001' 00101 

5110C L10Gí 

me' 

*^ 011110110 '* 
^00000311 
> 0100^1 1101 . 
0111 ' \©111 

1110 0000 

0100 L a !011 

^ 00060110010 ? 

> U 0101111 Í? 

-* <■% r» n» *• ~~ 


.-1011 
.06100 
0010P ‘ 

L0110 

10003 

0010C 

1000Í 

001Õi 

100 ia 

50111 


101b. 
11110V 
• 10110 
101©. 
10111 
3010G 
1100C 
10101 
1001G 
0110' 


01111 11011 
''0111101003' 

' 11100011 ' 

• r* * * 


último byte de memória. Esta variável está colocada nos 
endereços 16388 e 16389, pois sendo ela um endereço, 
tem 16 bits devendo então ser "quebrada" em duas par¬ 
tes para poder ser armazenada, armazenando-se antes o 
byte MENOS significativo (esta regra é usada para todos 
os dados de 16 bits! ). Assim digite: 


PRINT PEEK 16388 + (256 * PEEK 16389) 
(NEW LINE) 


(Consulte a aula 1 em caso de dúvida) 

Você obtém o valor de RAMTOP que dependerá de 
quanta memória você tem disponível. Se você tiver a 
expansão de 16K (suposição que será válida para todo o 
curso) deverá obter: 

RAMTOP = 32768 ('8000' em hexadecimal) 

o que significa que o endereço do último byte da memó¬ 
ria é 32767 ('7FFF' em hexadecimal). 

Vamos, então, "enganar" o computador e modificar 
o valor esta variável com o intuito de reservar o fim da 
memória RAM para lá colocarmos os programas em lin¬ 
guagem de máquina, sem prejudicar o resto da memória. 

Por exemplo, façamos RAMTOP = 30000 ('7530' em 
hexadecimal), lembrando que devemos colocar antes o 
byte menos significativo ('301. Digite: 


POKE 16388,48 (48 = '30' em hexadecimal) 

(NEW LINE) 

POKE 16389,117(117= '75'em hexadecimal) 

(NEW LINE) 

NEW 

(NEW LINE) 


o que corresponde a fazer 

RAMTOP = 256 * 117 + 48 = 30000 

(verifique isto usando novamente a função PEEK para 
obter o valor de RAMTOP). 

Deste modo você reservou a memória 30000 até 
32767 para colocar seus programas no computador, suas 
variáveis e o conteúdo da tela de TV NUNCA irão inva¬ 
dir esta região por "pensar" que a memória termina no 

continua 
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LANÇAMENTO 


PASSAGEM PARA O INFINITO 

Sensacional jogo onde você tentará encontrar e sair com um fabuloso tesouro em um 
complexo labirinto, guardado por terríveis polvos monstros, e com mais de 400 pas 
sos Para ajudá lo. vocé contará com algumas espadas, que garantirão sua sobrevt 
vència na luta com os monstros, e com os prisioneiros encarcerados nas várias pas 
sagens que lhe mdicaráo o caminho a seguir Totalmente em linguagem de máquina 
com gráficos fantasticamente animados e trás níveis de dificuldade para desafia lo 
Preço Qr* 7 000.00 

- MIDWAY - 

Uma grande guerra mundial esta sendo travada nas águas do Atlântico Você agora é 
o comandante do submarino atómico MIDWAY. sua missáo destruir todas as bases 
inimigas em águas brasileiras Cuidado com os navios avióes e minas espalhados pe 
los invasores Para auxsllá lo poderá contar com uma frota de navios de reabasteci 
mento, várias baees aliadas e um computador de bordo Um grande desafio com grá 
ficos e várias rotinas em linguagem de máquina Preço Cr* 5 000 00 


■ JORNADA NAS ESTRXLAS 


A sua nave interplanetária ENTP.EPRISE necessita livrar a galáxia dos invasores 
Klingon e vocé. como comandante <1a nave lerá a árdua missáo de destrui los Um 
jogo famoso no mundo todo em uma de suas melhores yersóes pela Softknstian, com 
efeitos gráficos sensacionais Preço Cr* 5 OÕÕ.Ofl 


*.* dimensão- 


Agora você já pode ter um fliperamaem seu microcomputador em2* DIMENSÀOdois 
jogos agitadíssimos para testar sua coordenação motora Em SPACE INVADER você 
tem os originais invasores atacando sua nave e em ASTEROID você deve pousar em um 
planeta e para tanto deverá ultrapassar os obstáculos que vêem á sua f rente tentando 
destrui lo Grandes jogos em linguagem de máquina Preço Cr* 5 000,00 


VISITA AO CASSINO 


Quatro grande6 jogos em um só caça níqueis, roleta. 21 e perseguiçAo fatal fazem 
parte deste sensacional conjunto Todos os jogos com gráficos e rotinas em linguagem 
de máquina, para você que gosta de apostar e torcer Preço Cr* 5 000.00 


■10 JOGOS EXCITANTES PARA 1 K- 


Dez pequenos jogos para você incrementar e aprender bastante os efeitos de progra 
maçáode jogos e trabalhos com video SevocènáodiBpóedaexpansáode 16 K Já pode 
rá ter entretenimento com esta sensacional fita Se você já dispóe de 16 K compre para 
incrementa los e terá excelentes Jogos Preço Cr* 4 000 00 


Compre conosco de ouáiquer parte do Brasi* sem 
despesas adiconais erwtanoo jm cneque cru/a 
doe nommaia aR-STiAN tlURQNiCA noa inâo 
preosa visar ) e garama o lecemmenio de nosso 
informativo NOVIDADES KRlSUAN lotaimenfe 
gratuito 


ivfrjii 

El* TRONCA 

Rua da Lapa. 120 grupo 505 
Tels 252 9057 232 5948 
CEP 20021 Rio de Janeiro RJ 


Todas as fitas váo em embalagem lacrada, com gravaçáo profissional, para sua garan¬ 
tia. A Krisuan trocará qualquer fita que seja enviada, com defeitos de fabricação 


endereço 29999 (752F' em hexadecimal). Note, toda¬ 
via, que esta região NÃO será afetada pelo comando 
NEW e não pode ser passada para a fita através do co¬ 
mando SAVE. Esta última limitação é desagradável e 
mais adiante veremos como contorná-la. 

(OBS.: caso você não tenha expansão de memória use: 

POKE 16388,173 
POKE 16389,67 
NEW 

para reservar a região de 17325 a 18431). 

Vamos, a seguir, apresentar um programa em BASIC 
que coloca na memória RAM um programa em lingua¬ 
gem de máquina elaborada em códigos hexadecimais a 
partir de um endereço inicial fornecido por você. Lem¬ 
bre-se de reservar espaço no fim da memória antes de 
colocar o programa: 

POKE 16388,48 (NEW LINE) 

POKE 16389,117 (NEW LINE) 

NEW (NEW LINE) 

A seguir coloque HEXAMEM no computador e vamos 

introduzir alguns códigos hexadecimais (que por 
enquanto não significam NADA) dentro do compu¬ 
tador! Cada código deve ser seguido de NEW LINE, e o 
programa termina ao introduzir-se a letra P (PARE). 


PROG. 1.1: HEXAMEM. 


1 REM FLRUIO ROSSINI 
5 REH HEXfiliEM 

10 F RST 

15 POKE 16368.46 

3© POKE 16389!. li*? 

a5 PP.INT “ ESCOLHO O ENDEREÇO X 

N1DIRL DR M 

30 PR1NT "MEMORIR 0=30000) *' 
3S INPUT IN 

40 PRINT 

4S PRINT ••MEMORIR INICIRL = "; 

IN 


5© LET IN X = IN 
55 LET fl$ = "" 

50 SCROLL 

55 PRINT "MEM. IN; 

70 IF R* = "" THEN INPUT R$ 

75 IF R$="P” THEN STOP 
80 IF R*=”XS" THEN GOTO 0130 
85 IF fl$ = , 'XF" THEN GOTO 0135 
90 LET RUXe16 tCODE R$+CODE R*C 
2) -476 

95 LET X $ =STR$ (16íCODE R$+COD 
E R*(2)-478) 

100 GOSUB 0200 

105 PRINT TRB 13.; C$; ;TRB 24; R 
$( TO 2) T RB (31-LEN X$);X« 

11© POKE IN.RUX 
115 LET IN=ÍN+1 
120 LET R$=R*t3 TO ) 

125 GOTO 0080 
13© SLOU 
135 CLS 

140 PRINT RT 3,B;U3R INI 

145 STOP 

200 LET 1=1 

205 GOSUB 0500 

210 LET 1=2 

215 LET C*=B$ 

220 GOSUB 0500 
225 RETURN 


500 

000“ 

IF 

Rí ( I) 

= “0“ 

THEN 

LET 

Bí = “0 

50S 

001“ 

IF 

Rí ( I) 

— ii n %» 

THEN 

LET 

0? 

II 

8 

S10 

010“ 

IF 

Rí ( X) 


THEN 

LET 

B$ = "0 

SIS 

011“ 

IF 

Rí Cl) 

= “3“ 

THEN 

LET 

Bí = “© 

520 

100“ 

IF 

Rí ( I) 

= ki 4." 

THEN 

LET 

Bí = “© 

sas 

101“ 

IF 

Rí < I) 

= “5" 

THEN 

LET 

6$ = “0 

S30 

110“ 

IF 

Rí ( I) 

= “6 M 

THEN 

LET 

6$ = ,, 0 

S3S 

111“ 

IF 

Rí (I) 

= *•7“ 

THEN 

LET 

Bí = “© 

S40 

000“ 

IF 

Rí (I) 

= “ 8 “ 

THEN 

LET 

B$ = " 1 

545 

001“ 

IF 

Rí (I) 

= “9 “ 

THEN 

LET 

B$ = " 1 

550 

010“ 

IF 

Rí (I) 

= “R“ 

THEN 

LET 

B$ = " 1 

555 

011“ 

IF 

Rí C I) 

= “B“ 

THEN 

LET 

Bí = “l 

56© 

100“ 

IF 

Rí ( I) 


THEN 

LET 


565 

101“ 

IF 

Rí ( I) 

= ** D “ 

THEN 

LET 

Bí = “ 1 

5“70 

110“ 

IF 

Rí C I) 

= “E“ 

THEN 

LET 

Bí = “l 

375 

111“ 

560 

565 

600 

IF R$tI)="F" THEN 

RETURN 

STOP 

SRUE ••HEXRMEEB" 

LET 

Bí =“ 1 

610 

630 

630 

PRINT “DIGITE BRERK E 
PRUSE 300 

GOTO S00 

L IST •* 


36 MICROHOBBY 



























VERBATIM 



PRODUZIDO NA ZONA FRANCA 
DE MANAUS SIGNIFICA: 
QUALIDADE COM 5 ANOS 
DE GARANTIA E O MELHOR 
PREÇO DO MERCADO. 


DATALIFE ' diskettes são produzidos com uma única 
preocupação: o armazenamento de dados sem erros. 

Esse comprometimento requer precisas técnicas 
de produção e rigoroso controle de qualidade. 

DATALIFE ' diskettes 8 ou 5 1 /4 polegadas tem 
certificação 100% sem erros. 

A diferença DATALIFE ' é pura e simplesmente qualidade. 


ENTREGA IMEDIATA 


FD 34 9000 

simples face/simples densidade 

26 setores 128 bytes setor 8 polegadas 

FD 34 8000 

simples tace/dupla densidade 

Não setorizado não formatado 8 polegadas 

DD 34 4026 

dupla face/dupla densidade 

26 setores 256 bytes/setor 8 polegadas 

DD 34 4001 

dupla face/dupla densidade Não setorizado 
não formatado 8 polegadas 


Entrega a partir de setembro 1 983 


MD 525-01 

simples face/dupla densidade 

5 1/4 polegadas 

MD 550-01 

dupla face/dupla densidade 5 1 /4 polegadas 


Em embalagem de cartào com 10 unidades 
Caixas plásticas opcionais 


PARA ENCOMENDAS FORA DE SÃO PAULO, 
Revendedores e Fabricantes interessados: A MEMPHIS PAGA A LIGAÇÃO, 

tel: (01II262-5332 DISQUE (011) 8008462 


Distribuidor: UlemplllS 

Indústria e Comércio Ltda. 

Av. Arnolfo de Azevedo, 108 - Pacaembu - São Paulo - Brasil 
CEP 01236 - PABX (011) 262-5577 - Telex (011) 34545 
Filial Rio: Praia do Flamengo, 66 cj: 1519 Tel: (021) 205-3849 - 225-3469 
Matriz: Av. Angélica, 35 - Sta. Cecília - São Paulo - Brasil - CEP 01227 

















OBS.: Se você NÃO tiver expansão de memória, substi¬ 
tua a linha 30 por PRINT “MEMÓRIA" (> = 17325)", 
retire as linhas 95,100 e de 200 a 580, substituindo a li¬ 
nha 105 por PRINT TAB 13; A$ (TO 2); TAB 17; AUX. 

Este programa fornece, também, uma "visualização" 
da memória do computador na tela de TV da seguinte 
maneira: 


MEM. 

N9 DA MEM. 

CONTEÚDO 

CONTEÚDO 

CONTEÚDO 


EM 

DA MEM EM 

EM 

EM 


DECIMAL 

BINÁRIO 

HEXADECI 

MAL 

DECIMAL 


Experimente, então colocar alguns nds hexadecimais 
na memória a partir do endereço 30000. Lembre-se que 
cada endereço da memória corresponde a 1 byte de da¬ 
dos. Portanto, você deve entrar sempre com um número 
par de dígitos hexadecimais, caso contrário, o programa 
parará na linha 90. Assim, entre, por exemplo, com o se¬ 
guinte: (N.L. = NEW LINE). 

RUN (N.L.) 

Memória inicial: 30000 (N.L.) 

A4 (N.L.) 

B70412 (N.L.) 

06 (N.L.) 

71FDA1 (N.L.) 

00CE (N.L.) 

P (N.L.) 

Na tela, você deverá obter: 


MEM . 

3O0Q0 

18160100 

R4 

134 

MEM . 

30001 

18110111 

67 

183 

MEM. 

30602 

00000108 

04 

4 

HEM. 

30003 

00010010 

12 

18 

HEM. 

30004 

00080110 

08 

6 

HEM . 

TO005 

01110001 

71 

113 

HEM. 

300O6 

11111101 

FD 

253 

HEM . 

30007 

10108001 

RI 

161 

HEM . 

30008 

00000000 

O© 

0 

MEM . 
MEM . 

30009 

30010 

11001110 

CE 

206 


Com isso, você colocou estes dados da memória 
30000 até a memória 30009. Vamos verificar se o pro¬ 
grama funcionou. Acrescente, agora, o seguinte progra¬ 
ma: 


3000 REM UERMEM 
3005 SLOU 

3010 PRINT "FIM = '>’• 

3015’ INPUT FIM 

30S0 FOR 1=30000 TO FIM 

3025 5CRÕLL 

3030 PRINT "MEMORIR".I;" “.PE 

EK I 

3035 NEXT I 


NOTA: Se você não tiver expansão de memória, substi¬ 
tua a linha 3020 por: 

FOR I = 17325 TO FIM 


PROG. 1.2: VERMEM. 


Execute-o fazendo RUN 3000 (ou GOTO 3000 ). 

Coloque para a variável FIM o valor 30009 (17334 
sem expansão), pois colocamos 10 dígitos hexadecimais 
na memória. Ao executar o programa você deverá obter 
os números previamente colocados, mas em DECIMALl 
Portanto, teremos: 


MEMÓRIA 

30000 

164 

( = 

'A4') 

MEMÓRIA 

30001 

183 

( = 

'B7') 

MEMÓRIA 

30002 

4 

( = 

'04') 

MEMÓRIA 

30003 

18 

( = 

'12') 

MEMÓRIA 

30004 

6 

( = 

'06') 

MEMÓRIA 

30005 

113 

( = 

'71') 

MEMÓRIA 

30006 

263 

( = 

'FD') 

MEMÓRIA 

30007 

161 

( = 

'Al') 

MEMÓRIA 

30008 

0 

( = 

'00') 

MEMÓRIA 

30009 

206 

( as 

'CE') 


representação em hexadecimal; veja os códigos previamente colocados! 

repita este procedimento para outros números hexadeci¬ 
mais até você entender o que está acontecendo. . . 

Note que estamos apenas colocando os códigos hexa¬ 
decimais na memória e mesmo que esses códigos (A4, 
B7, 04, 12, etc.) significassem um programa em lingua¬ 
gem de máquina, providencias especiais seriam neces¬ 
sárias para executar o programa. 

Estes códigos podem representar um programa em 
linguagem de máquina, colocado a partir da memória 
30000. Por exemplo, o código 164 (A4 em hexadeci¬ 
mal) poderia significar: some os próximos dois bytes 
(183 e 4); o código 18 (12 em hexadecimal), compare 
o resultado com o próximo byte (6) e assim por 
diante. . . 

Note que NÂO existem endereços para as linhas de 
programa, como em BASIC, e as instruções são executa¬ 
das na sequência em que foram colocadas na memória. 

Com todos esses "poréns", quais seriam, então, as 
vantagens da linguagem de máquina com relação ao 
BASIC? 

A linguagem de máquina é muito mais rápida e permi¬ 
te um VISUALIZAÇÃO e um CONTROLE maior do 
sistema. Em contrapartida, suas instruções são mais sim¬ 
ples e limitadas e exigem um cuidado maior na hora da 
programação. 


EXERCÍCIOS 

1. Analise o funcionamento do programa HEXAMEM, 
exceto as linhas 130, 135e 140. 

2. Analise o funcionamento do programa VERMEM. 
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IIMTENSIVÃO 
DO ANGLO 


EXATAS, BIOMÉDICAS e HUMANAS 
MANHÃ, TARDE e NOITE 

I 













'VLv*' 

COMO 



Para tanto, você deverá preencher corretamente 
o cupom anexo, colocá-lo num envelope, junto a um 
cheque nominal ou vale postal a favor de MICROMEGA 
PUBLICAÇÕES E MATERIAL DIDÁTICO LTDA., no 
valor de Cr$ 9.900,00 (oferta válida até 30 de 
setembro). 


O envelope deverá ser selado e endereçado à 


SUA 
ASSINATURA 


A nossa revista não será distribuída nas bancas. 

Para obter seu exemplar mensal, contendo muitos 
programas para o seu TK, muitas dicas e prêmios 
interessantíssimos, você deverá fazer uma assinatura 
o preço anual da assinatura é de CrS 11.800,00. 
Porém, até 30 de setembro, manteremos o preço de 
Cr$ 9.900,00, com direito a uma fita inédita de jogos: 
São Paulo (1K) 

Mansão Maluca (16K) 

cujo valor comercial é superior a Cr$ 6.000,00. 


MICROMEGA P.M.D. LTDA. 
Caixa Postal 60081 - CEP 05096 
São Paulo - SP 


No verso do cheque escreva: 


"Destina-se ao pagamento de uma assinatura 
(12 números) da revista MICROHOBBY" 


Quando este cheque for devolvido ao seu Banco 
com nosso endosso, servirá de comprovante provisório 
até que nosso recibo seja enviado pelo correio. 


O QUE ESTA RESERVAEO 
PARA O N?5: 





O SAPO 


PROGRAMA DO LEITOR: 

HORA SIDERAL 

PROGRAMAS DO MÊS: 


SOMA SINTÁTICA 
TRANSITO 
CALEIDOSCÓPIO 


MUITAS DICAS E 
INFORMAÇÕES 

SEÇÃO NOVA: 


OS "OITENTAS". 
PARA O USUÁRIO DO TK 
ENTENDER OTRS80 
E COMPATÍVEIS 
NACIONAIS. 
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1984... voce esta preparado? 


NÍVEL 0 

NÍVEL 1 

NÍVEL 2A 

NÍVEL 2B 

NÍVEL 3 

NÍVEL 4 

CRIANÇAS 

ADULTOS 

E 

ADOLESC 

ADULTOS 

E 

ADOLESC 

ADOLESC 

JOGOS 

ADULTOS 

E 

ADOLESC 

ADULTOS 

E 

ADOLESC 

10 h 

20 h 

20 h 

20 h 

40 h 

40 h 

INICIAÇÃO 

INICIAÇÃO 

APROF EM 
APLICAÇÕES 

adm 

APLICAÇÕES 

EM 

JOGOS 

linguagem 

DE MAQUINA 
ASSEMBLY 280 

APROF. DE 
LINGUAGEM 

DE MAQUINA 


Núcleo 

tação 
estudos 


CORPO DOCENTE: 

PROF. FABIO RENDELUCCI 
PROF FLAVIO ROSSINI 
PROF PIERLUIGI PIAZZI 


Av. Brig. Faria Lima, 1.451 * 3.° * Cj. 31 
Tel: 813-4555 - CEP 01451 - São Paulo 


■ 


Desgravador e rejuvenescedor instantâneo 



de fitas K-7 Sistema: PASSOU... DESGRAVOU 

GARANTIA DE 5 ANOS 


PARA 
APAGAR 
BASTA PASSAR 
A FITA IDA E 
VOLTA PELA 
ABERTURA 


mieromega 


^■■1 ■ _ MH @ 

T win 13o 

* Desgrava e rejuvenesce em apenas 4 segundos, qual¬ 
quer fita cassete independente de sua duração, eliminan¬ 
do todos os ruídos e chiados decorrentes de frequentes 
regra vações. 

* Poupa o desgaste da fita e do gravador. 

* Poupa tempo e melhora a qualidade do som da fita casse¬ 
te na reutilização da mesma. 

* Gravando em cima de outra gravação, a qualidade da re¬ 
produção é consideravelmente prejudicada, além de criar 
confusões, principalmente se a gravação anterior for de 
duração maiscurta. Desgravando com o TWIN-GO, nada 
disso acontece. 

* 0 TWIN-GO é indispensável a todos os profissionais e 
amadores, usuários de fitas cassete. 

Pedidos por carta à 

MICROMEGA PMD LTDA. 

Caixa Postal 60081 • CEP 05096 • São Paulo-SP 

anexando Cheque Nominal ou Vale Postal, 

incluindo mais despesas de frete no valor 

de Cr$500,00, autorizando o recebimento 

da compra no prazo de 15 dias. 
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Características Técnicas 

• Linguagem BASIC 

• 10 Kbytes de ROM. 

• 16 ou 48 Kbytes de memória 
RAM. 

• 40 teclas e 160 funções. 

• Gravação de programas em 
fita cassete comum. 

• Input e Output de dados. 

• Vídeo: aparelhos de TV B&P 
ou colorido. 

• Funções especiais 
HIGH-SPEED. 

• Som Opcional. 

• Joystick, impressora. 

Preço de lançamento: 

CrS 229.850,00 (16K) 

CrS 329.850,00 (48K) 

(Preço sujeito a alteração) 


O 1 


05 


, rft !><*• 

0U „V 0S ^ V- 

” %#%$&*** 


m 


m 




REVENDEDORES: ARACAJU 224 1310 • BELEM 222 5122/226-0518 • BELO HORIZONTE 226-6336/225-3305/225-0644/201-7555 • BLUMENAU 22-1250 • BRASÍLIA 224-2777/225-4534/226-9201/ 
226-4327/242-6344/242 5159 • BRUSQUE 55-0675 • CAMPINAS 32-3810/8^)822/32-4155/2 9930 • CAMPO GRANDE 383-6487/382-5332 • CARUARU 721 1273 • CUIABÁ 321-8119/321 7929 • CURITI 
BA 232 1750/224 6467/224 342^/243 1731/223-6944/233-8572/232 1196 • DIVINÓPOLIS 221 2942 • FLORIANÓPOLIS 23-1039 • FORTALEZA 226-4922/231 5249/231 0577/231-7013 • FREDERICO 
WESTPHALEN 344-1550 • GOIANIA 261 -0333/224-0557 • IJUÍ 332 2740 • ITAJUBÁ622 2088 • LINS22-2428 • LONDRINA22 4244/23-9674 • MACEIÓ 223-3979/221-6776 • MANAUS 237 1793 • MO 
Gl DAS CRUZES 468 3779/208-6797 • MURIARÉ 721 1593 • NATAL 222 3212/231 1055 • NITERÓI 722-6791 • NOVO HAMBURGO 93 1922/93 3800 • PELOTAS 24-5139 • PORTO ALEGRE26-8246/ 
21-4189/24 1411/22-3151/24-0311/21 6109/24 7746 «PRESIDENTE PRUDENTE 22-2788* RECIFE241-4310/224 8777/224-3436/224-4327-RESENDE 54-1664* RIBEIRÃO PRET0 636 0586/634-4715/ 
635-1195 • RIO DE JANEIRO 267-1093/252 2050/253-3395/264-0143/259 1516/232-5948/591 3297/222-6088/267 1339/329-4869/228-2650/246-4824/239-5612/542-3849/62-8737 • SALVADOR 248-6666/ 
235-4184/247-5717 • SANTAMARIA221 7120 • SANTO ANDRÉ 455 49^2/444 7375/454 9283 • SANTOS4 1220/32-7045/35-1792/33-2230* SÀOCARLOS71-9424 * SAO JOÃO DA BOA VISTA22 3336 
• SÀO JOSE DOS CAMPOS 22 3968/22-7311/22-8925/21-3135 • SAO PAULO 853-0164/853 0448/239-4122/36-6961/61 4049/881 1149/258-3954/212-9004/282-2105/212-3888/545-4769/227-3022/ 
864-8200/222-1511/259-2600/282-6609/813-4555/814-3663/826-1499/521-3779/270-7442/210-7681/813-4031 • SOROCABA 32 9988 • TAUBATÉ 31-4137 • UBERABA 333-1091 • UBERLÂNDIA 
234-8796* VIÇOSA 891 1790/891 2258 • MARILIA 33-4109 









